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news 

If you want to get the most out of your Commodore 128 or 64, 
we hove goods news for you. The Pocket 128 and 64 Series 
of Software both offer you serious, professional quality 
softwore packages that are easy to use and inexpensive. 

weasy? 

Pocket 128 or 64 Software is so easy, youVe ready to start 
using it as soon as it's loaded into memory. Even if you've 
never been in front of a computer before, you'll be up ond 
running in thirty minutes. In fact, you probably won't ever need 
the reference guide - . . 'help' is ovoiloble at the touch of a key 
Thot's how easy. 





How serious? 




Pocket 128 or 64 packages have all the power you're ever 

likely to need- They hove oil of the features you'd expect in 

top-of-the-line software, and then some- The good news is that 

Pocket 128 or 64 Software Packages ore priced woy down 

there . . . where you con afford them. 

Fast, powerful, easy to learn and inexpensive. 

Soy, that is good news! 




■ for 




one for all 





Pocket 128 or 64 Softwore Packages offer you something 
etse you might not expect . . . integrotion. You can combine the 
output of Pocket Writer, Pocket Filer and Pocket Planner 
into one piece of work. You can create o finished document 
with graphs, then send individually oddressed copies. 

e bottom line is Solutions 

The word solutions is our middle name and bottom line. When 
you purchase Pocket 128 or 64 software, you can count on 

it to solve your problems. 






Pocket 
Wnler 128 













Pocket Writer 1 28 or 64 
Word Processing 

What you see is what you get 

WJth Pocket Writer 128 or 64, there's no more guessing 
what text will look like when you print it, Whot you see is what 
you get . . . on screen ond in print. There are no fancy codes to 
memorize, no broken words at the end of a line. 

Eosy to learn and sophisticoted. Pocket Writer 128 or 64 
offers standard word processing features pius . . . 

• spelling-checker lets you add 
words to your dictionary 

• 4^0 or 80 columns on screen 



on-screen formatting ond 
wordwrop 

on-screen boldface, 
underlines ond ilotks 

no complicated Formot 
commonds to clutter text 

on-screen help at all levels 



file^ compatibte with 
PoperClip"^ or other word 
processors 



Pocket Planner 1 28 or 64 
Computerized Spreadsheet 

Moke fast woik of budgeHng am 
foreccuting . 



[ 

Pocket Planner 128 or 64 software lets you moke fast work 
of all your bookkeeping chores. Cheque books, household 
occounts. business forecasting ond bookkeeping are iust some 
of the jobs that Pocket Ptonner 128 or 64 packages moke 
cosier You can even create four different kinds of grophs- 

Accurate, sophisticoted and eosy to use- Pocket Planner 
1 28 or 64 offers standard spreadsheet feotures plus . . - 

• 80 column on-screen option 
for the Corrnnodore 64 in 
addition to the standard 40 
columns 

• grophics include bar. 

Stacked bar, line ond pie 

graphs ihal con olso be used 
in word processing file? 



* accuracy up to 16 digits, 
about twice ai mony as most 

Srendsheets for the 
jmmodore 12B or 64 

• sideways printing availoble on 
dot motriy printers, for 
oversized spreadsheets that 
won't fit on standard paper 

* on-screen help ot oil levels 

• compatible with VisiColc'*' files 



• smart evalualion of 

formulae for occurate 
complex matrices 




PoclcetRler 1 28 or 64' 
J>cifabase Manager 

Dotabase management made ecuy 

With Pocket Filer 128 or 64, you can organize mailing lists, 
addresses, inventories, telephone numbers, recipes and other 
informotion in an easily accessible form. Use it with Pocket 
Writer 128 or 64 [or other word processors} to construct 
individually customized form letters. 

Pocitet Filer 128 or 64 packages ore fast, sophisticated and 
truly easy to use. In addition to standard database features 
they offer... 



'"PapeiCi'p il rsgiifffred Irodemari 
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• use up to 255 fields per record 
[2,000 characters per record) 

■ sorts by up to 9 criteria, can 
save 9 different sorts 

• print labels in multiple 
columns "' ' 

• flexible report formatting 
including headers ana 
footers 



optional password protection 
including limited occess 
viewing or updating 

on-screen help at ail levels 

print from ony record to ony 
record 

arithmetic ond trigonometric 
functions in reports using up 
to 16 digit occurocy 
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Pocket 
Writer 64 

WordPracaMOr 



MAILORDERS: 
IVantoctor PubHthfng Inc. 

500 Steele^ Avenue 

Milfon, Onlario, L9T 3P7 

1-416-678-8438 

Or use order cord at center. 



PW 12S/6i Dictionary 
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Only The 
Name Is New 



The professional, 
full-reatured software 
line from Digitol Solutions 
is now called Pocket 

Softwore. 

Pocket Writer 128/64. 
Pocket Filer 128/64. 
Pocket Planner 128/64. 
The names ore new, but 
this super softwore is stjl^ 
the some. 

From now on, when you 
hear the word Pocket, it 
means software thot's 
full-featured, handy and 
easy to use. 

Pocket Software or prices 
that won't pick your 
pocket. 




Pocket 
Pkinner 128 

SpraadSh«*t 




est-seiiing so 
Your Commodore 1 28 or 64 



ou wan! the very best software you con find for your 
Commodore 128 or 64, right? 

You wont integrated softwore — word processing, 
dotoboseand spreodsheet applications — ot a sensible 
price. But, you also want top-o(-the-line features. 
Well, our Pocket 128/64 software goes one better 
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Serious software 
that's simple to use. 



can imagine, .and then some. And Pocket 128/64 is so 
easy to use, you won't even need the reference guide. 
On-screen and in memory instructions will hove you up 
ond running in less than 30 minutes, even if you've never 
used a computer before. 

The price? It's os low as you'd expect for a line of 
software called 'Pocker', Suggested Retail Price for the 64 
softwore IS 539,95 (U.S.) and $49-95 (U. 5.) for the 128. 

Any of the 64 products maybe upgraded to their 128 
version for S15. 00 (U.S.) + S3. 00 shipping and 
handling. (Available to registered owners from Digita 
Solutions Inc. only.) 

Pocket Writer 128 or 64, Pocket Planner 128 or 64 and 
Pocket Filer 128 or 64 . - . Solutions at sensible prices 
from DigiJal Solutions Inc, 

nternational & Distributor enquiries to: 

Digital 
Solutions 
/ Inc. 




30 Wertheim Court, Unit 2 
Richmond HiH, Onlorio 
ConadaL4BlB9 
telephone (416) 7318775 



Pocket Writer 128 ond 64 are now ovailable in French. 



2 MEGs For Your 

AMIGA 



A must for software developers 

Allows more programs to run simultaneously and faster 

Can be used to increase system RAM and/or as a FAST RAM DRIVE 

Uses standard memory bus architecture to allow for future compatibility 

Allows full use of memory expansion port for additional peripherals 



AX2000 2 MEG RAM Board $899.00 U.S. ($1276.00 
AXIOOO 1 MEG RAM Board $729.00 U.S. ($1035.00 < 

Complete in case, nothing else to buy! 
1 year manufacturer warranty! 

DEALER INQUIRIES INVITED 

Comspec Communications Inc. 
153 Bridgeland Avenue, Unit 5 

Toronto, Ontario, Canada 
M6A2Y6 (416)787-0617 



Mail order through The Transactor 
(see order card and News BRK) 

Shipping via courrier: wilhin Canada add $25.00. To U.S.A. add $100.00 U.S. - indudes customs clearance 

AMIGA is a reglslered trademark of Commodore Business Machine. 
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and Pieces 5 

Head aeanirii For The 2031 

SuperGET 

Turning ufr REMOTE 64 

Freakoul and Farzoid 

Device Not Presenl Updale 

Display T&S Fix 

Underline Cursor for Ihe 64 

Complete Joystick Keyboard Equivalenls 

Define Extra C-128 Keys 

Selling The B-I2& [nTETTupt Rale 

More B-I28 Info 

B-Series Sound 

Find A Pri^ram'h Start and End Address 

Finding Relative File Record Lengths 

SlDWhisile-Killer 

Dish Rescue 

LOAD By Track and Seclor 

A tJse For The Periodic Table' 

Pythagorean Triplel Generator 

Easy DATA Viewing 

Texicraft Files On Aimsa's External Drive 

C-64 Easy Filename Retneval 

CI28CP/M ASCII Oufpul 

Un- Assembler Speed -Up 

Bigger Slacks For Healthy AssemC-ly 

Amiga ABasiC Program Boot 

EasySpeed-Up For The 1541 

Amiga Date-Pro mpT Startup Sequence 



Letters 
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The Mutant Vic The Copy Blues 

Postal Service Blues Vic Time 

Hex - An Evil Spell 1200 Bits Per Second per second 

Ldt Wing Inierlerence Revisited '2 

A Comparison OF Four Word Processors RevisiTed 

News BRK 76 

Amiga HAM Elxpansion by Comspec 

Paperlack Writer now "Pocket Writer" 

Gnome Speed Compiler = 5M Compiler 

No Sales Tax on Books 

Sending Cheques For TiansactoT Products 

The Transactor Communications Dish 

Demise ol Viewtron 

Quantum Unk and Timeline 

Using Transactor Programs In Proprietary Software 

1986 Midwest Commodore Conference/ Expo 

MSD Sliil Alive And Prospering! 

Twin Cities 128; TheCommodore 128 Journal 

Creative Writer 

Sector Suigeon ForTheC-6'1 

Three MIDI Data Storage Pri^rams For Tfie 64 

The EJectronicShoe Box Accounting Systems 

Freedom Assembler-! 28 For The Commodore 128 

Rebel Assembler/ Editor For The 64 and 128 

Uz tJeal's Basic Pn^ram Converter 

1 and 20 Megabyte Hard Disk Drives For The CG-l 

Quick Brown Box. An 8k Read/Write Cartridge 

1540/1541 Drive Alignment System 

Astrology Program For Commodore 64 

Multiplex Eight RS232 PortsOnto ASingle X.25 Line 

/SPEEDPAK/ Speedscripf Enhancer 

Speed-Plus Speedscript Enhancer 



TransBASIC Installment *10 18 

The Atari ST Notebook 24 

BOOT Basics JimButtertieldonC128BOOT 28 

New Loops: The C128 Stack 30 

Eliminating SAVE® and Other 1541 Bugs 33 

FORMAT TRACK 36 36 

An Amiga Printer Cable a hardware W hardware pmiKI 38 

Save SYMASS Symbols a symass Assemble, utniiy 40 

Transcribe 64 aRELiue^Qpi^miiity 42 

AmmSlS a simple expert system Ihal's afso a game , . t^D 

Dr63K Key 64 interrupt without breaking upl bU 

MOVE: A Propagating Memory Move Routine 54 

Sprite Bit Addressing masking techniques 56 

Sprite Numbers display messages the easy way 57 

Adding Depth To Your Screens • 60 

Viewports hl-res and muHi-colour mode windows! ................ 01 

A C64 Hi-Resolution Draw Routine 66 

Hi-Res Search and Print aversaiiiehiresp-intuiimy 68 

C128 Hi-Resolution Graphics 72 

Compu-toons 75 



Note: Before entering programs, 
see "Verifizer" on page 4 
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Program Listings In The Transactor 

AM programs lisled in The Transactor will appear as they would on your screen in Upper/Lower 
case mode. To clarify two potential character mix-ups. zeroes will appear as 0' and the letler "o" 
will of course be in lower case. Secondly, the lower case L [ T) has a Hat top as opposed to the 
number I which has an angled lop. 

Many programs will contain reverse video characters that represent cursor movements, colours, 
Of function keys. These will also be shown exactly as they would appear on your screen, but 
they're listed here for reference. Also remember: CTRL-q within quotes is identical to a Cursor 
Down, el al. 

Occasionally programs will contain hues that show consecutive spaces. Often the number of 
spaces you insert will not be critical to correct operahon of the program. When ii is, the required 
number of spaces will be shown. For example: 



print 



flush right 



-would be shown as- print "[10 spaces] flush right 



Cursor Charftctera For PET / CBM / VIC / 64 

Down - Q Inftcrt - 1 

Up - I Delete - 

Right - ■ Clear Scm - | 

Left - [Lft] Home -fl 

RVS - B STOP 
RV5 Off - ■ 



Colour Charactei-B For VIC / 64 
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Binck - 

White 

Red 

Cyan - [Cynj 

Purple- [Pur] 

Green - ■ 

Bhie - ■ 

YeUow- [Vel] 
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Oninge 
Brown 

Lt, Red - 

Grey 1 ^ 

Crey2 - 
LI. Gr«pn - 

LI. Blue - Q 

Grey 3 - (Gr3| 



FiiDctlon Kcya For VIC / 64 



Fl 
F2 
F3 
F4 



& 

n 



F5^ 
F5- 
F7- 
F8- 
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Plejise Note: The Transactor has 
a new phone number: (416) 878 8438 
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The Games Game 

TSE ' Toronto Slock Exchange? Nope, not Ihis time. Today i( stands 
for 'Toronto Software Express" and I hesitate to even mention it. 
Allhough what I h&ve to say will not be pretty, I regret giving free 
publicity to a thorn. 

Recently I saw a program demonstrated. It was a game, and a rather 
professional looking game with high resolution screens that obviously 
required considerable time and effort, I don't recall the name of the 
game, but what I remember most was the opening screen. It too must 
have taken considerable time and effort. It proudly displayed the 
name of the person who unravelled the protection on the game, the 
letters "TSE" in large hi-res characters, and a hi-res message that 
scrolled from right to left containing the names and numbers of TSE 
bulletin boards in the immediate area. The next screen was a list of no 
less than 10 mote numbers for boards also affiliated with the TSE. 

From any of these numbers, one can use their computer to call and 
download software of all type and make at absolutely no charge. True, 
most of the programs are public domain, but many are not. Icouidfill 
the rest of this page with words I'd like to use describing this son of 

activity. Words like deplorable, detestable, despicable, and Immoral 

don't even begin to express how I feel about this. 

Since the operators of these services collect no fee, they would 
probably argue "no wrong doing". However, the manufacturers of 
these programs are also collecting nothing for these copies. During a 
year they may spend thousands on development and production, not 
to mention taxes, overhead, shipping, billing, and a host of other 
expenses. 

All of this has been said before, I know. Likewise, the question arises 
once again, "would they have bought it if they couldn't get it for free?" 
Probably not. But what do you suppose would happen if you loaded 
the latest Whitney Houston tape into a high speed duplicator and 
started passing the copies out to anyone willing to come and gel one. 
Many people, myself included, probably wouldn't bother. But I sus- 
pect someone would ask you to stop, myself included. 

Now I'd be willing to bet there isn't one computer hobbyist out there, 
regardless of the brand name on their equipment, without possession 
of at least one program currently lor sale that they have used without 
paying for. Getting something for nothing is human nature. But it's 
also an effective sales lactic which manufacturers have just started 
using. We all know that without a manual, many programs are 
virtually unusable. Spreadsheets, word processors, databases, assem- 
blers, and many others are protected this way because sending out 
free manuals can get expensive. Games seem to be the most vulnera- 
ble, especially games which require iittle or no instruction. Offers like 
free updates, discounts on other products, exquisite colour manuals, 
contests for trips or cash prizes, and other more imaginative incen- 
tives are planting the idea that "I can go looking for a free one, but if I 
buy one I also gel. . ." 



Except it doesn't always work. There are still those who don't care 
about updates or manuals, or can't get away to Australia. The freebie Karl 



is just too tempting. So what should be done? Many online services 
have made themselves responsible for software available on their 
systems. Their users are warned not to upload copywritten software 
and those who do can usually be identified. Since these organizations 
have much to lose (ie. everything), they are less reluctant to invoke 
disciplinary measures on the culprit than would a basement opera- 
tion. Action like publicly announcing termination of access privileges 
is usually enough to eliminate further instances. 

That leaves the bulletin boards, which are so often run by young 
hobbyists on phone lines billed to their parents. They obtain a BBS 
program (public domain BBS software is readily available) and load it 
up with as many programs as their system will handle. Gaining 
popularity is one of their main objectives. Naturally. But even though 
there are hundreds of great programs in the public domain, they 
assume they have nothing to lose by offering proprietary software. 
Wrongof New legislation is close to becoming, or may already be law. 
And if some manufacturer complains, YOU may be first in line to lest 
it out. 

If the RCMP came knocking on my door asking for help, would I 
oblige? You bet 1 would. But on certain conditions only. First of ail, I 

don't have copies of those phone numbers to offer, but that doesn't 

mean I couldn't find them. I would need proof of plans for a nation- 
wide campaign. Toronto isn't the only center for this activity. Next. I 
would need a guarantee that criminal charges would not be strewn 
about left and right. In my opinion, criminal charges are too easy to 
get and not easy enough to get rid of. Most of these BBS operators are 
bright young individuals with brilliant careers ahead of them. Much as 
1 deplore this abuse of freedom, new laws can be easily abused loo as 
law enforcement agencies go looking to "set an example '. There are 
probably other boards run by those old enough to know better, but I 
would still refuse to participate in ruining the future of talented 
Canadians without first ensuring them the opportunity to correct their 
own mistakes. 

If you're involved, get out while you can. Keep your BBS. but 
eliminate the programs that others depend on for income, . . income 
that keeps them from changing jobs! Besides, you may not be given 
an early warning. Large corporations often include the cost of penalty 
before engaging in any covert activity. But take a moment to consider 
what effect a $15,000 fine might have on your personal savings, 

I don't have all the answers, but who knows - there just may be a 
manufacturer out therewillingto investigate the potential for support- 
ing the BBS method of local distribution. For those resourceful 
enough to make an effort, you may just be able to turn a perilous 
situation into a profitable one - legally! AND, I'd be only loo happy to 
act as a catalyst, because. . . 



There is nothing as constant as change, I remain 




I fh^Traniqcter 
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Using "VERIFIZER 
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The Transactor's Foolproof Program Entry Method 



VERIFIZER should be run before typing in any long program from 
the pages of The Transactor. It will let you check your work line by 
line as you enter the program, and catch frustrating typing errors. 
The VERIFIZER concept works by displaying a two-ietter code for 
each program line which you can check against the corresponding 
code in the program listing. 

There are two versions of VERIFIZER on this page; one is for the 
VIC or C64, the other for the CI 28. Enter the applicable program 
and RUN it. If you get a data or checksum error, re-check (he 
program and keep trying until all goes well. You should SAVE the 
program, since you'll want to use it every time you enter one of our 
programs. Once you've RUN the loader, remember to enter NEW 
to purge BASIC text space. Then turn VERIFIZER on with: 

SYS 828 to enabte the C64A/IC version (turn it off with SYS 831) 
or SYS 3072,1 to enable the 0128 version {off with SYS 3072.0) 

Once VERIFIZER is on, every time you press RETURN on a 
program line a two-letter report code will appear on the top left of 
the screen in reverse field. Note that these letters are in uppercase 
and will appear as graphics characters unless you are in upper/ 
lowercase mode (press shift/Commodore on C64/VIC). 

Note: If a report code is missing (or "— ") it means we've edited 
thai line al the last minute which changes the report code. 
However, this will only happen occasionally and usually only on 
REM statements. 



KE 

JF 

Lt 

BE 

DH 

GK 

FH 

KP 

AF 

IN 

EC 

EP 

DC 

MN 

MG 

Dfvl 

OA 

NG 

OK 

AN 

GH 

JO 

EP 

MH 

8H 



VERIFIZER for C64 and VIC-20 




PK 


1000 








AK 


1010 


10 rem' data loader for ' Veritizer" ' • 




JK 


1020 


15 rem vic/64 version 




NH 


1030 


20cs = 






OG 


1040 


30 for i ^ 828 to 958;read a:poke i,a 




JP 


1050 


40 cs = cs + a:next i 






MP' 


1060 


50: 






AG 


1070 


60 if csOl 4755 then print' '--•*- data error ***•»": end 


D 


1080 


70 rem sys 828 






GF 


1090 


80 end 






MG 


1100 


100: 






HE 


1110 


1000 data 76, 74, 


3,165.251,141, 2, 


3, 165 


LM 


1120 


1010data252, 141. 


3, 3, 96,173, 3, 


3,201 


JA 


1130 


1020 data 3,240, 


17,133,252, 173, 2, 


3.133 


El 


1140 


1030 data 251, 169, 


99, 141, 2, 3. 169, 


3, 141 


KJ 


1150 


1040 data 3, 3, 


96.173,254, 1,133, 


89.162 


DH 


1160 


1050 data 0, 160, 


0, 189, 0, 2,240, 


22, 201 


JM 


1170 


1060 data 32,240. 


15, 133, 91,200, 152, 


41, 3 


KG 


1180 


1070 data 133, 90, 


32,183, 3,198, 90, 


16,249 


EF 


1190 


1080 data 232, 208. 


229, 56, 32,240,255. 


169, 19 


CG 


1200 


1090 data 32,210, 


255. 169, 18, 32,210,255, 165 


EC 


1210 


iiOOdata 89. 41, 


15, 24,105, 97, 32.210,255 


AC 


1220 


11 10 data 165, 89. 


74. 74, 74, 74, 24, 


105, 97 


JA 


1230 


1120data 32,210, 


255,169,146. 32,210. 


255, 24 


CC 


1240 


1130data 32,240, 


255, 108,251, 0, 165. 


91, 24 


BO 


1250 


1140data101, 89, 


133. 89, 96 




PD 


1260 



With VERIFIZER on, jusi enter Ihe program from the magazine 
normally, checking each reporl code after you press RETURN on a 
line. If the code doesn't match up with the letters printed in the box 
beside the listing, you can re-check and correct Jhe line, then try 
again- If you wish, you can LIST a range of lines, then type 
RETURN over each in succession while checking (he report codes 
as they appear. Once the program has l>een properly entered, be 
sure to lurn VERIFIZER off with the SYS indicated above before 
you do anything else, 

VERIFIZER will catch transposition errors (eg. POKE 52381,0 
instead of POKE 53281 ,0), but ignores spaces, so you may add or 
omit spaces from the listed program al will {providing you don't 
split up keywords!). Standard keyword abbreviations (like nE 
instead of next} will not affect the VERIFIZER report code- 
Technical info: C64 VERIFIZER resides in the cassette buffer, so 
if youVe using a dataselle be aware that tape operations can be 
dangerous to its health. As far as compatibility with other utilities 
goes, VERIFIZER shouldn't cause any problems since it works 
through the BASIC warm-start link and jumps to the origmal 
deshnalion of the hnk alter it's finished. When disabled, it restores 
the link to its original contents. 



CI 28 VERIFrZER (40 column mode) 

rem - data loader for ' 'verifizerc128' ' 
rem * commodore c1 23 version 
rem • use in 40 column mode only! 
cs = 

forj = 3072 to 3214: read x: pokej.x; ch = ch + x next 
if chOI 7860 then print ' 'checksum error' ': stop 
print ■ 'sys 3072, 1 : rem to enable' ' 
print' 'sys 3072,0: rem to disable' ' 
end 

data208. 11,165,253,141, 2, 3,165 
data254, 141, 3, 3. 96, 173, 3, 3 
data201. 12,240, 17,133,254,173. 2 
data 3,133,253,169, 38,141, 2, 3 
data169. 12,141, 3, 3, 96,165, 22 
data 133, 250, 162, 0,160, 0,189, 
data 2,201, 48,144, 7,201. 58,176 
data 3, 232, 208, 242, 189, 0, 2, 240 
data 22,201, 32,240, 15,133,252,200 
data152. 41, 3.133,251, 32,135. 12 
datal98,251, 16.249,232,208,229. 56 
data 32,240,255,169, 19. 32,210,255 
data 169, 18, 32,210,255,165,250, 41 
data 15, 24,105,193, 32.210,255,165 
data250, 74, 74, 74, 74, 24.105,193 
data 32,210,255,169.146, 32,210,255 
data 24, 32.240,255,108,253, 0,165 
data252, 24,101,250,133,250, 96 
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Bits and Pieces 


Got an interesting programming fip, short roiUine. or an un- 




known bit of Commodore trivia? Send it in - if we use if in the 




Bits S^ Pieces column, we 11 credit you in ifie column and send 




you a free one-years subscription lo Tfie Transactor 




Head Cleaning D. Tomblin 


To use the subroutine, first set the variable MX lo the maximum 


For The 2031 Parkaviile, BC 


number of characters to put into the input field, then GO- 




SUB140. Tiie delete key works so that you can only delete as far 


[f you own a Commodore disk drive and would like to use a 


aslhebeginningofthefield. When the RETURN key is pressed, 


head cleaner disk un it you must run the drive motor for about 


tfie input string is returned in the variable CS, 


45 seconds. Since Commodore didn't see fit to include a " run 




disk motor for about 45 seconds" command we must look 


Note: In lines 150, 210, and 260, ^'[Logo + p " is an underline 


elsewhere. Luckily there is a command that will allow you to 


character obtained with the Commodore logo key and an 


execute programs within the drive. Using ' m-e ' chr$(addr lo) 


unshifted R 


chr$(addr hi) we can turn the drive motor on and off at wi 1. 




Since Peter Boisvert wrote a program to do the job on a 1 54 1 


ID 


1 rem * super get statement * 


(Bits and Pieces Trans. VG/3) 1 will give you the 2031 version. 


BN 


20 rem duane barry - Cambridge, ont. 


The 1541 won't work with this program. In case you missed 


B 


30 print "name: "; 


Peter^s program, substitute chr$(l 26}chr$(249)in line 50 for use 


MJ 


40 mx = 1 5 : rem set max nput ength 


with the 1541. 


00 


SOgosub 140 rem calf super get 




KO 


60 prinfBJhe o "cS 








GE 
EM 


70 end 
80: 




MA 


10 printcfir$(14); "Hlhis is to be used on a 






2031 type'^ 


KM 


100 rem** super get subroutine •* 




OL 


1 5 print " drive onfy. Do you wish to continue? " 


LL 


1 1 rem set max input length in 'mx' 




; HJ 

1 


20 print: print" (Y/N)" 


OF 


1 20 rem input string returned in 'c$' 




NJ 


25 poke 1 98,0. rem vie and 64 


GP 


130: 




AH 


26 rem use poke 158, Oon 2.0-4,0 pets 


A 


140 =0:a$= "":c$="- 




BO 


30ge!a$: ifa$= " " tfienSO 


IJ 


150 print" [Logo + p][Crsr Left]"; :rem print 




LF 


35ifa$<>"y" then end 




fake cursor 




GO 


40 open 15,8,15 


NP 


160geta$: ifa$= "" then 160 




MC 


5Qprint#15/m-e"chr$(204)chr$(249) 


DL 


170ita$ = chr$(20)and =0then160 




GA 


60 print "KBJI Press Any Key To Stop fvlotor" 


OF 


180ita$= "[crsrleft]" ora$= "Q" ora$= "H" 




NA 


70geta$: ifa$= " " then 70 




or a$ = " H " or a$ = chr${1 9) then 1 50 




IL 


80 prjnt#1 5, ' m-e " chr$(54)chr$(250) 


DL 


1 90 If a$<>chr$(20) and a$<>chr$(1 48) then 220 




BA 


90 close 1 5 


BK 


200 rem delete fast char 




EG 


TOO end 


AG 


2101 = 1-1 print ^ spc, 2 crsr lefts [Logo + p] 
crsr left] "' ; ; c$ = left$(c$, ): goto 1 60 










LO 


220 if a$ = chr$(1 3) then print " " ireturn 


SuperGET Duane Barry, Cambridge Ont. 


Kl 


230 it 1 = mx then pokel 98,0: gotol 60 




AJ 


240 print a$; :rem print new char 


Here's a very usefu subroutine which will use the GET state- 


BD 


250 poke 21 2,0 : rem turn off quote mode 


ment instead of an input. The subroutme is inside a liny 


LF 


260 print" [Logo +p [crsrleft]"; :rem print cursor 


demonstration program. 


1 BG 


270c$=c$ + a$ :rem add char to siring 




: BJ 


260 1 = 1+1 :rem add to char count 




FM 


290 goto 1 60 : rem get next char 
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Turning off REMOTE 64 



John Obeda 
London, OnL 



John Obeda called lo point out a problem with REMOTE 64 
(Volume 6 Issue 2): it doesn^t quite work as advertised if you Iry 
turning it off and re-inilializiag it. The method given to disable 
REMOTE 64 was to re-set the IRQ vector. Actually, you'll have 
to restore a whole bunch of vectors to ensure safe re- 
initializing. KortuEiately, there is a Kernel routine which will 
re-set all system vectors to their deiauil slate. The routine is in 
the jump table at $FF8A (654 1 8 decimal) To turn off REMOTE 
64, just: 

SYS 6541 8 

Then SYS 49152 to turn REMOTE 64 back on when you need 
it. 



Freakout and Farzoid 



Marc Moor croft 
Toronto, Onl. 



Here's o couple of jusl-for-ftm curiosities for your 64. The first 
one, freakoul. restores nornml cor}trol of your machine, but 
adds the dubious benefit of strange sound effects to accompany 
your every command "Farzoid" is a i^raphics toy which 
switches between background colours quickly enough to out- 
speed the raster beam and produce a dazzling display. 



Farzoid: 

Pick two colours (numbers through 15) for the first prompt, 
then a speed value for the next. The values 0,5, 14,19,25,38,49 
and 50 give good results. To stop the program and try a new 
speed value, hit RESTORE. Press RETURN at the speed prompt 
lo go back to the colour prompt, and RETURN at the colour 
prompt to exit llie program. 



OB 
NE 
MB 

BO 
EL 

MP 

HP 
HE 
EF 

CG 
FO 

HO 

GA 




100 tort = 826 to 868 reada: poke t, a nex± 
110 print "BBarzo^H by marcmoorcrofi 
120 a = -1 input "^^flip between which 

coiours[7 spcs, 7 crsr lefts] " ;a,b 
130 ifa<0orb<0ora>1 5orb>1 5Ihen end 
140 poke 863, a pokeS68,aand not b or band 

not a print 
1 50 d = -1: input "Hdelay (0-1 21)[7 spcs, 

7 crsr lefts] ";d 
160ifd<0ord>121 then 120 
1 70 for t = 869 to 868 + d; poke 1,234: next 
180poke869 + d,16. poke870 + d,249-d: 

a = peek(53281) 
190 3ys851: poke 53281, a- goto 150 
200 data 173, 13.221, 169,4, 141. 13,221, 169, 

71, 141.24,3. 169,254, 141,25,3 
210 data 88. 104, 104, 104,96, 120, 169,60, 141 

24.3, 169,3, 141,25,3 
220 data 169, 3, 141,33,208, 73, 1 



Freakoul: 

This C-64 program sets up an interrupt routine that gets the 
saved processor registers from the stack and puts them into the 
voices of the SID chip. 



90 rem freakout by marc moorcroft 
100s = 54272. [ = 49152. pokes + 24,15 
110fort = s + 41os+18step7:poket + 1,0: 

poke t + 2,240:poke t, 1 7:next 
120 tor t = l tol + 21:read a:poket,a'next 
130 poke 56334. peek(56334) and 254 
140 poke 789,l/256.poke 788,l-peek(789)'256 
1 50 poke 56334, peek(56334)or1 
160 data 186, 189, 1, 1, 141, 1,212, 189,2, 1 
170data141,8, 212. 189, 3, 1.141,15, 212, 76, 
49, 234 



Try listing a long program while holding down the CTRL key. 
For more interesting sounds, try increasing the rate of the 
interrupts: 



or 



poke 56325.1 

poke 56324.30: poke 56325.0 



Device Nol Present Update 



John Menke 
Mt, Vernon, IL 



Dave Pollack's cure for the 'DEVICE NOT PRESENT' bui^ in the 
C-64 operating system is good news (Volume 6, Issue G, page 
6). El works well in my tests, after a slight modification based on 
my observation that the value of ST is nol always exactly - 1 28 
when a serial bus device is disconnected. I have found values of 
-125 and -128. and presumably other values are possible. 
Probably any negative value of ST correctly signals that a serial 
device is nor present. 



Display T&S Fix 



John Houghton 
Coltingwood, Ont. 



I use the program DISPLAY T&S on this disk that came with my 
J 54) quite a bit. Recently I had some weird problems when 
accessing some hies I was studying. I would display the direc- 
tory track lo find the first track and sector, and when the 
program displayed the next tr^ck and sector for the block, it 
was either a wrong or illegal track or sector. 1 could only see the 
first track and sector then CRASH, 

What was frustrating was that the files would load fine so DOS 
was seeing the right numbers, and a DISK DOCTOR program I 
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have read out the eorrecl information all th^ lime. Obviously 
something was wmny with the program DISPLAY T&S. 

The fix is in line 270. In line 410, the program memory-reads 
$()S0O (buffer ^2). but the OPEN command in line 270 only 
requests ANY buffer for use- Change line 270 to read: 

270 open 2,8,2, " #2 ^ ; gosub 650 

This will reserve buffer two for your use. For some reason the 
program was gelling the wrong Irack and sector info from the 
buffers. 

A note: Ihis is only happening to me on one disk, which leads 
me to think Ihal re-NEWing the disk has done something, 
because I did re-NEW Ihe disk before its use. If this is happen- 
ing to anyone else Ihe fix is above. Works for me, so far, every 
time. 



IN 

CB 

CK 

IC 

00 
KE 
HI 
[VIE 
FG 
LL 
LE 
ME 
EB 
IP 
MP 



100 

1000 

1010 

1020 

1030 

1040 

1050 

1060 

1070 

1080 

1090 

1100 

1110 

1120 

1130 



data 169, 
data 3, 
data 3, 
data 0, 
data 9, 
data 234, 
data 165, 
data 169, 
data 174, 
data 207, 
data 141, 
data 201, 
data 73, 
data 98, 



11. 141. 
3. 96, 
169, 192, 
141, 32. 
141, 134. 
255, 76. 
204, 208, 

20, 133, 
135, 2, 
133,206, 
135, 2, 

32, 240, 
128, 76, 
192 



2, 3, 

120, 169, 

141, 21, 

208, 141, 

2, 76, 

48, 192, 

249, 198, 

205, 164, 

177,209, 

32, 36, 

174, 134, 

9,201, 

94, 234, 



169, 192, 141 

39, 141. 20 
3, 88. 169 

33.208. 169 
131, 164, 32 

76. 97,234 
205, 208. 245 
211, 70.207 
176, 17.230 
234,177,243 
2, 165,206 
100,240, 5 

73, 68, 76 



Complete Joystick 
Keyboard Equivalents 



Robert Blain 
NSW. Australia 



Underline Cursor for the 64 



Ben Russel 
North Sydney, NS 



Hercs a program la give you an underline-lype cursor on the 
64 whenever the character under the cursor is o space. The 
program also sets the background, border, and character 
colours after a RESTORE. 

Following are some POKEs for using the cursor program. 

For users of the Fastload cartridge; 

poke 49169, 106. poke 49190, 223 
To change background and border colours: 

poke 491 76, colour 
To change the cursor colour; 

poke 491 84, colour 

To chaui^e the blink speed of the cursor {defaull is 20; lower 
numbers = faster); 



poke 49209, n 



ON 
LI 
KG 
DH 
GK 
KA 
DD 
AF 



10 rem* data loaderior "cursor" ♦ 

20CS-0 

30 lor I = 49152 to 49257 read a poke i,a 

40cs = cs + a:nexti 

50: 

60if csOl 3386 then print "'data error!": end 

70 sys 49152 

80 end 



In a previous Bits and Pieces, we gave ways to simulate some 
Joystick positions via the keyboard. From Robert Blain comes 
this complete list. The left column tells which key or keys to 
press to give the joystick equwalent in Ihe right column. 

JOYl 



CTRL 


= West 


*- 


= South 


1 


= North 


2 


= East 


1 + 2 


= North Fast 


-^ + 2 


= Soulh Fast 


*- + CI KL 


= South WesI 


1 -f CTRL 


= North West 


Space 


= Fire 



JOY2 



Space 4- C 


= West 


Space + Z 


= South 


Space + Fl 


= North 


Space + B 


= East 


Space -+- C + Z 


= North East 


Space + B + Z 


= South Eabt 


Space + B + Fl 


= South West 


Space + C + Fl 


= North West 


Space + M 


= Fire 


C- 128 Keys 


Richard Young 




Greenwood, MS 



The Commodore 1 28 System Guide covers function key defini- 
tions, using Iht KEY command, but the HELP and RUN (SHIhT 
RUN/STOP) keys can also be dehned. All of these definilions 
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aTe!ocatedfrom$100aio$10FF('3096-435l decimal). It 
Is easiest to re-define HELP and RUN before rc-defining 
the funtEmn keys because the definitions move in this 
area of memory according to the length of the definitions. 

For example, to re-define RUN from DLOAD "• and 
RUN to simply '^RUN:'\ memory locations $103F to 
$ 1 047 (4 1 59-4 1 67) must be altered: 

Rnter itie MONITOR and display M 103F 1047 
Youwillseethe dl/* and RUN in ASCI L 
Change $IO;^f to $1047 to read: 

00 00 00 00 52 55 4E3A0D 

exit from the monitor (X) and define other keys if desired, 
SAVK your key definitions from the monitor with; 

S ^ KEYS ",8,1000,1 100 

or from BAbIC with 

BSAVE ■' KEYS " ,B0,P4096 TO P4351 

The key definitions can now be recovered at any lime 
with: 

BLOAD '■ KEYS " 



%^***t*f 



Selling (he B-128 Interrupt Rate EUzabelh DeaJ 

Malvern PA 

Inlerruptson the B-machines are handled by the Iti-port 
chip at $deOO. It appears that any valid cia2 source, in 
addition to the TOU-alarm, can be used to interrupt. 

Normally. IRQs occur at the power line frequency (bit at 
$de02). They can be turned oU and replaced hy another 
source, for instance, timer-A falling through zero, as on 
the c64. It's a pest, but can be diMic. 

You can type the bytes under the »*♦♦**** using the 
monitor. To get it going, use: 

bank 15; sys 7^256 

Tlie little reset button kills the project. 

One use miiiht be U.K. Software winch relies on the 50/ 
sec Irqs. You may try It with Superscript (which boLinces 
keys due to the 60 HZ irq); start the code using the SYS 
call above (not monitor!), then load and run Superscript 
as you nornidily do. My keyboard does not bounce the 
keys anymore and always types correct characters. 



f0700 78 

f0701 ad 07 de 
f0704 8d 07 de 
f0707 a9 40 
f0709 8d 04 dc 
f070G a9 9c 
fO70e 8d 05 dc 
f0711 a9 61 
10713 8d Od dc 
f0716 ad Oe dc 
f0719 29 80 
fO71b09 01 
f071d 8d Oe dc 
f0720 ad 05 de 
f0723 29 fe 
f0725 09 40 
f0727 8d 05 de 
f072a a9 36 
f072c 8d 00 03 
f072f a9 07 
10731 8d 01 03 
f0734 58 
f0735 60 
f0736a5 01 (0 
f0738 46 
f0739ae 07 de 
1073c 8a 
f073cl 29 04 
f073f d0 04 
f0741 6a 
f0742 4c f5 fb 
f0745 ea 
f0746 ea 
f0747 ea 
f0748 ad Od dc 
f074b 29 02 
t074dfO 10 
f074f a9 00 
f0751 8d 06 dc 
f0754 8d 07 dc 
f0457 ad Of dc 
f045a09 18 
f045c8dOf dc 
f045f 4c 81 fc 



sei 

Ida $de07 
sta $de07 
Ida #$40 
sta $dc04 
Ida #$9c 
sta $dc05 
Ida ^81 
sla $dcOd 
Ida SdcOe 
and #$80 
ora #$01 
sta $dc0e 
Ida $de05 
and #$fe 
ora #$40 
sta $de05 
Ida #$36 
sta $0300 
Ida #$07 
sta $0301 
cli 
rts 

Ida $01 
pfia 

Idx $de07 
txa 

and ^S04 
bne $0745 
txa 

jmp $fbf5 
nop 
nop 
nop 

Ida $dcOd 
and #$02 
beq $075f 
Ida #$00 
sta $dc06 
sta $dc07 
Ida $dc0f 
ora #$18 
sta $dc0t 
imp $fcei 



.clear latch & air 

iset timer a for 50hz ($9c40) 
;(60hz = $8235) 



;icr-enableta irqs only 

;cra-ieave 50/60hz flag alone for lod 
^slart ta in continuous mode 



;tri-part irq mask , . , 
; ignore power line ilips 
; enable Cfa2 irqs instead 

iswitch irq routine to (*) 



;irq patch 
jlookatirq flag 

;wasitcia2"? 

;yes, go around 

: no 

; , , do usual stuff 

;yes-try 'inc$d043' here 



;get/clearcia2-irqflag 

;is leee-tin^eout bit set"? 

; nope, go around 

; yup, force it on 

; so that disk routines can see 

; this bit. 

, set timer-b for one shot mode 

; so It won't time out all the time 

; but disk will still see it once 

;do keyboard scan, etc. rti 



More B-128 Info 



Some additions to the "IraTisactor V4 "5 Issue for l*rotecto/CBM B- 
128 version 

Sde02: irq latch, poke zero to de^r 1 bit. read $dei)7 ro clr all 

7 6 8 4 3 2 10 

not not irq acia lial cia2 iece GOhz 

used used pend tp srq pwr 
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$de06: cb is unconnected {both blls are high) 

SdcOd: bil 1, timer b(conl. mode) is set for ieeefiSms 
timeouts, bit 1 is tested only, no irqs. 

SdcOe: cia2 era, bit 7 is zero (1 in u.k.) tod will use 60hz. 

bit 3 is set at ioinil time - ta one shot and never used. 



B-Sertes Sound 



Edward Shock ley 
Deerfield Beach, FL 



Those of you who own a B-series machine may not realize that 
it contains the same 6581 SID chip as the C64, C128, and SX64! 

And you can take a BASIC 2,0 program written (or the SID and 

run it on the B-series with little modification. Simply add 1 536 

($600 hex) to the C64 program's SID memory locations. Leave 

the values alone, they're the same on all machines. 

For instance, the SID starts at 54272 ($D400) on the C64 and at 
55808 ($DAOO) on the B-series. Adding 1536 to 54272 yields 
55808, the B-series location. Follow through Ihe program, 
adding 1536 to each POKF of the SID chip. If the program 
assigns the voices separate from playing them, you may need 
to add a BANK 1 5 statement just before both routines. 

Of course, you can convert the B-ser les programs to the C64 by 
reversing the process. 



Find A Program's 

Start and End Address 



Russ Thomas 
Bridge water, NS 



The following program will give the start and end address of a 
pnfgram on disk. The program finds the end address in a rather 
unique way. instead of walking through a program to the end, 
this program attempts to verify the file. Because the program is 
not in memory, a verify error occurs (the program being 
checked MUST NOT BE IN El^M lor this to work). When the 
program ends due to the error, it continues due to some 
command.s poked into the keyboard buffer. At this point, 
locations 1 74 and 1 75 hold the end address, wliich is converted 
to hex and printed out. 

Note: the cursor movements in lines 130 and 140 must be 
typed in exactly as listed, or the program will not continue after 
it hits the verify error. 



20 print " nthis program will give the start 

30 print'' and end address of a program" 

50 input " BIwhat fs the filename ' ,f$ 

60 open 2,8, 2, f$+ \p,f" 

70 get#2,lo$: lo$ = lo$ -f chr$(0) 

80 get#2,hn$: hi$ = hi$ 4- chr$(0) 

90 close 2 :1a = asc(loS) + 256'asc(hi$) 



00 
DA 
DC 
KB 
EM 
JN 

FC 

EE 

CP 

OO 

JP 

PP 

DD 

PD 

DM 

EP 

FE 

DC 

PG 

Jl 

PD 

AD 

ID 

EC 

CI 

Ml 

LL 

LP 

CH 



1 00 print " |^BBB|||| |IIIIIIHIIBBBBMaBl worki 

110 pokel98,2 poke631,13 poke632,13: 
1 15oc = peek(646): rem save old chrcolr 
120 print '' H":poKe646 ,peek(532ei)and15 

130pnnt"M WBBBBBl QQtQl60":pr[nt"HI" 
140pnnt''^H™y ;chr$(34);f$;chr${34); 

\8,l" 
150poke198,3:poke631,13:poke632,13: 

poke633,13:end 
1 60 ea = peek(1 74) + 256" peek{l 75)- 1 
1 70 poke 646, PC r em restore char color 

180pnnt^||SEnBB^'^2p^i^^"ID";p'if^^"" 
1 90 h$ = ■' 1 23456789abcdef " 

200x = la 

210fori = 3to0s!ep-l 

220 n% - x/(1 6ti):x = x-no/o* 1 6ti 

230 he$ = he$ + mid$(h$,n% +1,1) 

240 next 

250 p$ = ^ 1 234567S9abcdef " 

260 z = ea 

270fori=3to0slep-1 

280n% = z/(16ti):z = z-n%*16ti 

290pe$ = pe$ + mid$(p$,n%+1,1) 

300 next 

SlOprlnt" start address: "la; "dec. ";he$;- hex" 

320prtnt" end address :"ea;"'dec. " :pe$/' hex" 

330 cir 

340 print " HBIanother file? y/n " 

350geta$:ita$= "" then 350 

360ifa$= ^y" then 50 

370 end 



Finding Relative File Record Lengths 

Use this short program to find the record length of a relative file 
on a 1541 or 2031 drive; 

10 input "file name" ;f$ 
20 open 15,8,15 
30 open 1,8,9,f$' 
40pnntj^15/m-r"chr$(200)chr$(0)chr$(1) 

50get#15,rl$ 

60 print " record length of file " ,f$; " is " ;asc(rl$ + chr$(0)) 

70 close 7: close 15 

For 8050, 4040, or 8250 drives, change the (200) in line 40 to 
(114). 



SID Wliistle-Killer Peter Vdovich, Pickering, Ont, 

Recently ! purchased a Voice Messenger speech synthesizer to 
use with my 64, and was rather dismayed by the high-pitched 
whislle thai was present when il set the level of Ihe SID chip, 
(This whistle is also present, to a lesser degree, any time the 
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chip providt'S maximum output.) A few tests confirmed that 
this rackfil does indeed coine directly from The SID, 

Because 1 work as a repair rerhnician {and I'm a cheapskate), 1 
decided to try and eliminate the whistle myself. I opened up the 
computer and installed a .005 mfd, capacitor in parallel with 
C37 on the circnil board, (The added capacitance attenuates 
high frequencies. Different capacitor values will |)roduce differ- 
ent results, but .005 mfd seems best.) The operation was fast 
and easy, and although the whistle is not completely ^one it is 
greatly reduced. The synthesizer sounds much better loo! 



UI8 



"to C37 
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Disk Rescue 



H.C. Doennecke, Tulsa, OK 



When used with certain disks, My 1541 became increasingly 
confused when loading or saving. The red light would blink 
and the end sto|) would rap repeatedly, after which the opera- 
tion might or might not be successful. Whenever I checked the 
error message it would be Number 21, "No sync character'. 
However, my purchased software loaded normally and various 
checks said the drive was OK. I decided the disk surfaces were 
going bad and discarded a couple of disks before f awoke to the 
fact that the disks were dragging in their envelopes. Now 
whenever a disk starts to do this I bend open one end of the 
envelope, carefully remove the disk, and root around in the 
envelope, especially to the edges, with a plastic drafting trian- 
gle. Then I replace the disk, add a bit of tape to hold the end flap 
down, and the disk works as good as new. 

All of my disks that have had this problem have been Memteks 
which have been used about a year and a half. 



LOAD By Track and Sector 



SX,IMickelson 
London, England 



It is known that using LOAD " ' " ,8 with the 1541 will load the 
previously loaded program. The drive keeps pointers in RAM 
which pomt to the first track and sector of the last file loaded. So 
when LOAD " * " ,8 occurs, the drive doesn't access the direc- 
tory first but instead goes to the track and sector stored in these 
RAM pointers and begins the load from there. By changing the 
pointers, we can get the drive to load any program we wish, 
making all sorts of things possible. 



For instance, you could write a menu program which would 
load programs from disk without accessing the directory; the 
starting track and sector of all programs on disk could be 
known by the menu program, and the programs don't even 
need to be in the disk directory. This would speed u|i program 
loads, and make for an un-cluttered directory as well. 

To load a program starting at a given track and sector (using 
LOAD " ' " ,8), use the program below: 

1 1 = 1 7: s ^0; rem - example first track and sector of file to 

be loaded 
20 open 15,8, 15,"f0' 

30print#15,"m-w"chr${126)chr$(0)cfir$(1)chr${t) 
40prjnt#15,"m-w^'cfir$(in)chr$(2)chr$(1)chr$(s) 
50 load ^*" ,8 

To implement the menu program mentioned above, you'll 
have to start with a normal disk and find out the start track and 
sector of each program. There are a few public domain pro- 
grams which will give you the track/sector information, or you 
can use this short program: 

1 rem displays the name + first track 

2 rem and sector of every file on disk 

lOopen 15,8,15,"iO^ close 15 

20open1,8,3,"$0^ 

30 for i = 1 to 254: get#1 ,a$: next 

40t$= "■': m-m + 1:get#l,a$,t$,s$:t$ = t$-t-chr$(0) 

s$ = s$-f chr$(0) 
50fori = 1 to16:gel#1.a$: f$ = f$ + a$: next 
60tori = 1 lo10:get#1,a$ next if stOO then close 1: end 
70 if t$<>chr$(0) then print fS " t = " asc(t$) ^' s = ^ asc(s$) 
80 get#l ,a$: if m<8 then get#1 ,a$,a$: goto 40 
90m = 0. goto 40 



A Use For The Periodic Table! 



Robert G. Tischer 
Starkville, Mississippi 



The Complete Commodore Inner Space Anthology finds itself 
in daily use in our shop and does so because of its maiiy 
thoughtfully constructed and easily usable tabulations. 

One extra use I've found is in providing interesting disk (D's. 

For this purpose, the periodic table on page 121 Is IDeal. It 
provides over a hundred ID letter combinations, guaranteed to 
be different, meaningful, useful as a learning aid, and, no 
doubt, ill other yet unrecognized ways. 

Moreover, the table tlself represents a checking device, useful 
in determining which ID's have already been used. 

In the event that you are a really heavy disk user, the ID list 
could be expanded easily, still retaining the basic structure of 
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the periodic lable by using the first letter of each element. Textcraft Files On 
accompanied by Ilie letters of the alphabet, in order, Amiga's External Drive 



Ewan Granlham 
Atlanta, GA 



This would provide more than 2600 ID's. If you need more 
than that, you're on your own- 



Pythagorean Triplet Generator 



R.A. IsraeUon 
Kingston, Ont. 



The following program will generate integer solutions to the 
right triangle according to the theorum of Pythagoras, based on 
the variables U and V as shown. 

Run the program to see if you can determine the required 
relationship between U and V, if the generated data is lo be 
non-redundant. You can vary the number of solutions pro- 
duced by changing the value of N m line i30. 



AB 
HJ 

IJ 

LK 

KB 

PJ 
ML 
JM 
GO 

BF 

FL 
JP 
GB 
HJ 
NJ 



1 00 rem p ythaq orean triplets by rai -86 
nOprint^ BH u V ut2-vt2 2uv ut2 + vt2'^ 



120 print" [37" = "signs] " 

130 n= 10: rem number of solutions 

140dima(n-1),b{n-1),c(n-1} 

150quit = n: j = 0: u = 2: v = 1 

160u2 = u'u: v2 = v-v 

170a(j) = u2-v2:b(j) = 2'U*v:C(i) = u2 + v2 

180 print tab(2);u;tab(6};v.tabi15);aO),tab(25); 

b(j);tab(34);c(j) 
190| = j + l: if j = quit then end 
200ifu-v = 1 ttien goto 220 
210v = v + 2: gotoieo 
220u = u + 1: v=1 
230if{uand 1) = 1 lhienv = 2 
240 goto 160 



According lo the Textcraft manual, you can store documents on 
an external drive, but they must be on the internal drive to 
open them. Actually, you can establish a pathway lo the 
external drive to both save and open documents. 

To do this, put your document disk in the external drive, and 
the Textcraft disk in the internal drive. Open Textcraft [roni the 
external drive by double-clicking the mouse an one of the 
document icons from the external drive. This will load Tex- 
tcraft and the selected document, Interesrin^ly rnouijh, rhis 
establishes the save pathway to the external drive. To open 
other documents from the external drive, save the first d<x:u- 
ment to the external drive using 

"dfl: <fflename> ". 

After doing this, you can open and save documents on your 
external drive, reducing the chances of hurting the Textcraft 
master disk. 



C-64 Easy Filename Retrieval 



Russ Thomas 
Bridge water, N.S. 



In the May, i986» Volume 6, Issue 06, Jeffrey Coons gives an 
on-screen one-liner to find the filename after a PIT.R NOT 

FOUND ERROR. Iry this instead; 

SYS 6291 3 

r 

A nicetrick-fast, easy to remember, and it prints to the screen. 
Good for the CSA; VIC owners can use SYS 63065. 



C128 CP/M ASCII Output 



Richard D, Young 
Greenwood, IS.S- 



Easy DATA Viewing 



Philip Sharman 
Calgary, Alberta 



Just typed in a program with a lot of DATA statements that now 
need proofreading? Add this line to the beginning of your 
program: 

1 read x: print x: wail 653, 1 : wail 653, 1,1: goto 1 

Then just hit the SHIFT key and the numbers in the DATA 
statements will be printed, one by one, on the screen. Much 
easier than staring at a screen full of numbersi It^s even easier 
than proofreading from a printout. 

It'll stop harmlessly with an "out of data" message when it 
runs out of numbers. Just erase line 1 when you're finished. 



The additional CP/M documentation and utility disks offered 
for the Commodore 128 and available from Comniodoto Busi- 
ness Machines for $2^.95 may be worth it for anyone who is 
going to use CP/M at all. One of the disks contains complete 
source files and instructions for regenerating the CPM+ sys- 
tem. These files, in source assembler (.ASM), are reasonably 
well documented with comments and can be an excellent aid 
lo learning the new machine language and the operating 
system. 

After using CP/M for some time, including output to a printer 
via an interface that converted CBM ASCII to true ASCII, 1 
experienced some frustration with this process of conversion. 
As a general rule, I have always preferred to converi to true 
ASCII in software prior to output to the prmter CP/M on the 
Commodore 12S appeared to offer no alternative until I had a 
look at the source code. 
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Among the Mies h one caIkH CXPRINTE.ASM. This is the 
pTinler driver, and contains !he routine for converting charac- 
ters for output to an assumed Commodore printer. If turns out 
that characters are carried in true ASCII until this conversion 
routine is called. Specifically, the line in the source code is " 
CALL CONVERT", Deleting this line, or replacing il with a 
NOP and a comment, then regenerating the CPM + system by 
following the instructions with the source disk was sufficient to 
allow output of true ASCII to the printer. 



Amiga ABasiC Program Boot 



Un- Assembler Speed- Up 



David Siiiloh 
Eugene, OR 



James Cooper Jr. 
Fayetville, NC 



I thoroughly enjoyed Mr. Lothian's Un-Assembler (Jan '86), 
which does not suffer at all from garbage collection. It is, 
however, doing extra floating point operations in pass two as it ; 
builds the label arrays. The replacement lines below make pass 
two over five times as fast (for 6K, 1 4 minutes instead of 8 1 ). Mr. 
Menke (Letters, May '86) should now be able to unassemble 
2lKofcodeinjust over two hours, 

530 gosub 2380: p = s-1: gosub2260: 11(0) =s, 

Il(l) = e + 3:lb=1.l2(0) = 
540 rem print p " D " to walch pass two 
680 for i = lb to step-1 : if ad<l 1 (i) {i^en 71 
690 if ad = I1(i) then i =0: goto 710 
700forq=^lb+1 to f + 2step-1: I1(q) = l1(q-1):next: 

I1(q) = ad:i = 0:lb = lb+1 

710 next: return 

720 [DELETE] 

730 [DELETE] 

770 [DELETE] 

780 If = 1 : for i == to lo: if ad>l2{i)then 8 1 

790 If ad = I2(i)then It = 0: i = lo. goto 810 

800 for q = lo + 1 to I + 1 ; 12(q) - I2(q- 1 ): next: 

I2(q) = ad:lf = 0:i = lo.lo = lo + 1 
81 next: if If then I2{i) = ad: 10 = 10 -i- 1 
820 return 
830 [DELETE] 

and. . .Line 1430 needs to end with ",2040" for the bit to byte 
option 

Bigger Stacks For Healthy Assembly 

When assembling a lari^e file on the Amiga, the system can 
crash because of lack of stack space. Before assembling, give 
yourself more space wilh the STACK command from CLL A 
value of 20,000 should be safe. When in doubt, use more. The 
command looks like this: 

STACK 20000 



When ABasiC (the early Metacompco BASIC) is loaded, it looks 
for a file named " inil.bas " , first in the current directory, then 
in the " :s " subdirectory. If found, ABasiC automatically loads 
and runs this file. I use this feature to set my screen to 80 
columns before I start typing. 

As an added extra, ANY script hie may be placed in the " :s " 
subdirectory, as execute looks there if it cannot find your file in 
the current directory. This way, you do not have to worry if you 
have changed the current directory when you try to execute the 
file. 



Easy Speed-Up For The 1541 



Ralph Doncaster 
East Bay, N.S. 



For people who are trying to squeeze every bit of speed out of 
their 15-11 or who are just interested in theworkmgsof thedisk 
drive, then this is just for you. Type in. save, and run the 
following: 

10 open 15,8,15, ■m-w'chr$(94)chr$(0)chr$(2)chT$(l)chr$|41) 

20print#15,"m-w"chr$(100)chr$(0)chr$(1)chr$(3):dosel5 

This speeds up the movement of the read/write head by 
changing the acceleration and the amount of time between 
steps. Time to move the head is reduced by more than half. 
giving speedier program and file access. 



Amiga Date- Prompt 
Startup Sequence 



Benjamin Dobkin 
Rego Park, NY 



1 use this file as my i/STARTUP-SEQUENCE: 

echo - 

ecfio " Welcome Ivlaster Benjamin!!" 

echo " 

echo ■■ Our last session was on: ' 

date 

echo " 

date> "con:0/100/350/25/DD-MMM-YYHH:fvlMSS [en- 
ter new date:] " >* ? 
date 
loadwb 
endclj > ml. echo 



IP II 



This makes a new window containing a date-time prompt (a la 
JBM). and right alter you respond to the prompt it will display 
the full date and time. 



You may wan! to pul this in the batch fiie you use for assem- 
bling?, or even in your Slartup-Sequence. You also need a larger 
slack when runnmg ABasiC from CLl (8000 is safe). 



At this point if you press control-d, the startup sequence is 
broken and you are returned to CLl without going into Work- 
Bench. 
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Letters 



The Mutant Vic; In a city not so far away, in a time but four 
years ago, a disenchanted universlly (biology) grad unable to 
find work in his own field decided to escape his day time job 
andpurchasedhisnight lime dream machine, a 3.5k Vic 20 (for 
roughly 1 i)x what you would pdy for one now). 

He subscribed to all the beginner magazines and really enjoyed 
himself for about six months and Then some virus bit him. The 
Vic grew out of conlrol, ll grew to 32k, il learned how to transfer 
ROM cartridges to tape and grew chip switches. It took over a 
room in the house. It became so much fun that he started 
taking a data processing certificate at a community college. Two 
years passed and the Vic spawned a mutant, a C-64, more 
powerhil than itself. It demanded a disk drive, then a printer, 
then another disk drive, more languages. And then all of a 
sudden the biology grad was running a main frame computer 
with muki partitions for the same company he used to pick and 
pack orders for. Another year passed and now he was a 
programmer. Who would have ever guessed that a 3.5k Vic 20 
would lead to this This summer he would graduate from 
college. 

But along the way something else happened. All those maga- 
zine subscriptions just weren t pulling their weight anymore. 
They were fine to start with but they didn't grow, they re- 
mained superficial barely scratching beneath the surface. One 

by one they weren't resubscribed to until only one remained. 
The Transactor, Please find enclosed my renewal to my sub- 
scription of The Transactor and keep up (he excellent work. 

SJ. Balduck, London, Ontario 

In anofhcr city not so far away from yours, in a lime bui four 
weeks ago. a letter would arrive at the office of a computer 
ma^azine. The tetter would describe the experiences of a 
determined young university grad ivho would become inter- 
ested in a completely different field than the one punted on his 
diploma. The letter would turn out to be written by one and the 
same. A wonderful letter as it would allow the editor of the 
computer magazine to respond in a writing style he would 
enjoy immensely. 

Thank you for the compliments and best of luck in your new 
found career. However, (attd this probably need not be sold) 
dont be dissappoirUed about the time you spent learning 
biology. I too spent a long time obtaining my diploma in 
electronics engineering. Although I have been lucky to be able 
to apply SOME of what I learned. / have found that the "paper 
chase ' was the most valuable lesson of all. Learnmg how to 
learn or 'learning discipline^' is a gift that most grads don't 
realize they've received until the time comes to put it to use. For 
those still in schools of higher ed. perhofis I've revealed too 
much. But let me just say this. STAY THEHEI What you're 
seeing now is much less than what you 'II get out of it later, I 
assure you.' - K..I f I 



Postal Service Blues: What happened to the days of the 
valued subscriber? You remember; subscribe at a small reduc- 
tion of cost and gel your issue a week before the news stand. 

f recently received my notice of renewal for my Transactor 
magazine. My much awaited Transactor magazine ( might add. 
I have to wair too long to receive them! Tell me how the editors 
of magazines expect the general buying public to put out a 
years subscription price and then wait anxiously. Wait for one 
or two weeks after the magazine has already arrived on the 
news stand. Tve dropped my other subscriptions for the same 
reason! There really was a time when the subscriber was 
privileged; receiving his or her copy in advance of the general 
public, 

1 still look forward to getting my Transactor, No ads. Lots of 
substance. So much so, I won't wait a minute longer than I have 
to! That's the best compliment anyone could receive, , . 

James R. Ciefslad. Mackenzie, British Columbia 

Yours fs typical of many letters we receive as well as phone calls 
and personal comments. We would like to apologize for the 
delivery problems that have plagued any and all of our readers, 
but would also like to take this opportunity to describe the 
process. 

When an 80 page Transactor goes on the press, the pages come 
off in 2 sheets of 32 (16 pages each sidej. one sheet of 16, plus 
the cover and any other inserts (eg. the subscription cardj All 
tfiis gets moved over to another rather large mechanical con- 
traption called a "binder". 

However, before Maclean-Hunter (our printer) will fire up the 
binder, they insist we submit our mailing list of subscribers. The 
list is sorted by postal/zip code and printed on a dot matnx 
printer (at our office) on regular 132 column paper such that 
iftere are four labels across by eleven down on each page. The 
labels rr}ust be very carefully positioned on the page according 
to specs provided by MacLeamHunter The entire stack of 
subscriber labels are loaded into a hopper at the end of tlie 
binder, and the process begins. 

The binder machine takes the various sheets and folds them 
this way and that until each 2-page set is seperated by a fold (a 
2-page set is page X plus the page it 's attached to at the opposite 
end of the magazine). At about the halfway mark, the folded 
pieces are stacked in order, and the entire stack is stapled 
together. The staples actually start out as a spool of wire that is 
cut and bent into what you see as staples. Next the bound stack 
is bent in half along the staples, and a "trimmer" cotJtes 
smashing down and sheers off the folds at the lop, bottom, and 
right hand edge. As you can imagine, the trimming must be 
done last. If it were done any earlier, each page would be a 
slightly different length leaving a rather untidy appearance to 
the three exposed edges of the paper. 
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Ahou! fhree feel lofer. the finished magazine enters the fobeller. 
The 4 by 11 sheets of labels are sliced and diced, dipped in glue, 
and slapped onto Ifie couer As I metioned earlier, the labels 
must be carefully positioned on the paper else the slicer/dicer 
tvoiifd trim off part of the data. The labelled mag^ go from there 
into a handler The bundler operator watches the destinoHon of 
the magazines very carefully so that those going to one province 
or state don 't get bundled with those going lo the next province/ 
state The bundles (about 20 m each) go onto skids, one skid per 
province. The U.S. is seperated into 8 "zones^\ hence 8 skids for 
delivery to the Buffalo main postal dispatch. 



issue of Computels Gazette (issue 30, vol. 3, no. 1 2) a pmi^rani 
called SpeedCheck was published. This is a spelling checker, 
but there is no pre-made dictionary disk. The program allows 
you to make your own custom dictionary by going through 
your SpeedScript document, checking for ail words that are 
more than 5 characters in leni^lh, and asking if you want this 
word in your dictionary. In future documents, if the word it is 
checking is already in ihe dictionary, il passes it by and goes on 
to Ihe next word There are a few understandable shortcomings 
to this spell checker. For example, what if you exchange their' 
for 'there'. 



fioLu does this affect delivery'^ Welf it doesn t. . . we just thought 
you migfit like to know. However, it is easier for MacLean- 
Hunter to do the subscriber copies first. To do them last would 
mean anticipating the point at which about 10.000 unbound 
copies remain before switching on the labeller By doing them 
first means simply using up all the labels. When the labels are 
all gone, the rest of Ihe magazines go to the news stand 
distributor But remember, we print about 64.000 copies, ap^ 
proximately 10.000 of which go to subscribers. When the lost 
label IS pasted on. there are still 54, 000 mags to go. This takes 
several hours. When the last magazine is bound and trimmed, 
the subscriber copies are usually well on (heir way (MM doesn t 
fool around - they don 't like having 15 to 20 skids of mail taking 
up precious floor space) In fact. Canada Post makes regular 
pick ups at fi4H en route to their major distribution points. The 
only mail that goes lo the Toronto center is the marl for the 
Toronto area. The rest goes directly to Montreal, Edmonton. 
Vancouver, efc. The U.S^ mail goes lo Buffalo, and from there 
on to Ihe other zones. 

Admittedly. Transactor mail doesn 't fill an entire truck load so 
MH combines it with other titles going to the same places, 
hlowever, the process is about as streamlined as it can get. and 
you can bet the entire lot goes out on pretty much the same day. 
Your complaint, though, is not unjustified - quite the contrary. 
Except to get subscriber copies out earlier would probably 
mean warehousing the news stand copies for two weeks to give 
the others a head start. As you can see. it's one bind after 
another (pun mtendedj. 

A Comparison Of Four Word Processors Revisited: I 

would like to make a few comments about your article entitled 
*A Comparison Of Four Word Processors'. 

First of ail, in your article it was stated that SpeedScript could 
only display 40 columns. This is partially true. Through the use 
of Preview-80, it is possible to scroll around your SpeedScript 
document using Ihe arrow keys. This is not true 80 columns, 
but then again it is handy when you want to see what your 
document will look like before you print it out. Special printer 
functions such as Ihe underline and bold text modes cannot be 
displayed. Functions such as headers and footers can be 
displayed. Preview-8() can be found in Ihe November 1985 
issue of Conipule!s Gazette (issue 29, vol, 3, no. 1). 

Il was also slated that SpeedScript does not have a spelling 
checker. Again, this is partially true. In the December 1985 



In a recent Compute! (I'm not positive of Ihe month, but il was 
the issue with SpeedCalc 64) an option was added for different 
on screen character sets. This, however, works on your TV., 
not your printer 

Another spell checker is available from Upstart Publishing 
(Dept. G3, POB 22022, Greensboro, N,C 27420) for $15. Also 
available from this same place is SpeedPak. This SpeedScript 
expander allows for alternate screens, macros, file encryption, 
help screens, different character sets, mail merge, DVORAK 
keyboard, and three more printer codes (for use with the mail 
merge options). This program is also $15, 

Another SpeedScript enhancement program is available from 
Lidon Enterprises [POB 773, Elm Grove, W[ 53122). This 
enhancement allows the following functions: 

PowerPrint - set the cursor where you want lo start priming 
and print one character, one sentence, one paragraph or the 
entire document. 

PowerParams - assign multiple printer commands to one key. 
These parameters (macros) are saved with your documeni for 
future use. 

PowerSe! - allows all Commodore compatible printers To 
switch between both character sets. 

This program is available for either $4.9S for the typed listing, 
or $7.98 on disk or cassette. 

1 don't mean to criticize your magazine in any way. Rather, I am 
a SpeedScript enthusiast who wishes to add further insight into 
the SpeedScript series. Thank you for providing one of the besl 
Commodore magazine on the market, 

Jon S.Boland, Park Falls, Wl 

Hex - An Evil Spell: I was very amused by the letter titled 
The Horror of Hex' in the May issue of The Transactor. In it. an 
exasperated reader flamed that Hex 'is utter nonsense/ 

My amusement was, however, bitter-sweet. I loo remember 
first encountering hexadecimal notation. My first attempts at 
learning machine language involved looking up the com- 
mands in the Programmer's Reference Guide, finding their Hex 
opcodes, translating them to decimal and POKEing the 
damned creatures in! Naturally, this was not exceptionally 
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efficient. Soon I DESPISKD Hex, and I observed thai th^ word 
Hex was defined by my diclionaiy as 'An evil spell'! 

I have oflen heard people voice the opinion that hexadecimal is 
somehow 'unnatural' and that decimal numbers are an inher- 
ent property of our universe! In my enlli^htenmenl, however, [ 
have come to wish that humans all had 16 fingers. 

Meanwhile, for those who do not wish to delve into the elegant 
world of machine language, there are a number of solutions. 
One is to use Basic extensions such as TransBASIC and Mela- 
BASIC (published In April 85 Compulels Gazette), which fea- 
tures Hex to decimal conversion commands. Another is to get a 
good memory map. 1 use 'Mapping Ihe Commodore 64' by 
Sheldon Leemon, which features both hexadecimal and deci- 
mal equivalents for each address. 

As for the 'private clique' of us who program in ML, well, we 
can use wonderful monitors such as Micromon and assemblers 
such as PAL. Using these beauties, we don't need to convert. 
Besides, what does the number 4096 signify? It's just an 
address, whether expressed as 4096 or $1000. 

Now OCTAL. . ..That's unnatural! 

Nicic Barrowman, SL John's. Newfoundland 

Imagine, for o moment, having 16 frngers. In that same mo- 
ment something tells me a byte would haue W bus. 

The Copy Blues: ! am a subscriber to The Transactor and find 
many good things that are passed on to our Users group here in 
Germany. 

At the present time we are using two of the new SFDIOOl 
drives in our BBS, and find the capacity terrific!!! However, the 
different formats present unique problems when it comes to 
the maintenance on board. We cannot find a file copy program 
that will transfer REL files, either to or from the 1541 and SFD. 
We would also like to fmd a full disk copy program that would 
make copies of the full disk from one SFD to the other SFD, so 
far with no success. 

We realize that you have better things to do than worry about 
our problems, however, with the increased use of the SFD, this 
cannot be an isolated issue. 

As a NATO organization here, we have several Canadian 
members In our group. They have said that if anyone can help, 
the Transactor can!!!! We surely hope so. 

Major R,HJacquot 

Sec reta ry / Treas u re r : 

Commodore Computer Users Group Heidelberg 

Although thin letter was sent to us back in October of '85. it took 
till now to be able to reply. His request is not unique in that we 
hove received many others like it. The drive types have varied 
from Ihe SFDIOOl as above through the MSD and Indus drives. 
One underlying factor always prevails; relative files ore a drag 



to copy using a single disk drive. 

After many months of trying to find the time to write a relative 
file copy program, we can now present Transcribe 64 in this 
issue. Transcribe 64 is a relative file copy program for the 
Commodore 64 that allows you to copy REL files of any length 
using a single drive, to and from any Commodore or compati- 
ble drive that you can mterface to your 64. The only limitation 
in using IEEE drives with Transcribe is the interface you use. !f 
the interface consumes RAM in the same places that Transcribe 
does, problems will develop. The source for Transcribe has not 
been printed this issue, but it does exist on the Transactor Disk 
"13 for all so inclined. If you find conflicts in using Transcribe 
with your interface, you can either re-write the source, provid- 
ing you know where the conflicts have developed, or purchase 
a transparent interface. Your choice. 

Vic Time; 1 own a Vic 20 {good old Vic!), 1541, a home-made 
24k expansion and a printer with a Centronics port. They told 
me that you "couldn't" do that without an Interface that would 
have cost me several hundred dollars, so I wrote my own 
Interface and put It In the cassette buffer driven through the 
output vector. The only hardware Is the cable, 

Jn your editing please remember that there are a lot of us Vic 
owners around who have this queer idea that the Vic we've got 
Is still able to do ail the things we want it to do, so why spend 
$400 (In NZ) for a C64? 1 have recast programs like the R65C02 
Assembler to work on the Vic screen and with my printer. It's a 
great program. Now 1 just have to get the Unassembler going, 
and adjust to produce code that can be handled by the Assem- 
bler. 

I'm always glad to see 'translation' done for me. Like the 
Profiler, 1 was still getting around to doing it. Much smipler to 
see it all tested and in print. Keep it up. 

Any chance of TransBASIC kernal for us Vic owners? 

An idea for a TransBASIC module. How about SORT, SORT%, 
SORTS which will take two elements from a numerical, Integer 
or string array respectively and put them in the right order Eg. 
SORT,a$(i),a${l + 1 ). Since this is definitely a 'speed' function. It 
helps if the programmer tells the Interpreter what sort of array 
Is involved and not make It use up lime hndlng out for itself. 
Hence three functions. For completion, there could also be an 
UNSORT that reverses the order regardless. 

We've been getting tantalizing tidbits on the 154! Inner Space 
but not enough to do to be able to do 'serious' programming in 
it yet. Now that we have a 1541 map of all the functions, how 
about some articles telling us some details of what to do with 
them. Richard T. Evers tells us it is done by putting the different 
job numbers on the JOB QUE, warns us of the dire conse- 
quences of not setting up RAM pointers correctly, and leaves It 
at that. Some peopleouttherearereprogramming the drive, so 
the information is available. Who has it ?? 

Terry Montgomery, Aukland, New Zealand 
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The problems fhat we have alujays hod with the Vic art' iwo- 
fold. First, the screen is only 22 characfers wide. This is o real 
limitation when writing software that is universal for the Com- 
modore machines. 80 columns ts jusl righi -^0 columns is often 
limes a pain and 22 columns is always a major drag. 

Second, although the Vic is A I for nice ROM routines and RAM 
vectors, it is always unpredictable when writing code to work 
with a specific memory configuration. The Vic was one of 
Cornmodore^s initial success stories, but i! a-a-^ far from perfect. 
We hove printed code written and modified for the Vic in past, 
and will continue to do so in the future, hut without one 
standard memory configuraUon that we know is common 
among our renders, we can never make the Vicahabit Wejust 
have to continue printing the source as often as possible, and 
hope that people such as you can make the conversions. Sorry 
about that. 

As for programming the drn^e. one really terrific book exists that 
details all you will ever need to know about programming the 
1541 The book name is Inside Commodore DOS] written by 
Richard Immers and Gerald C Neufeki, published by Bradey, 
ISBN O-'HH] 90-366-3 You will not find a better book to help 
you understand the inner workings of your drive. I hope this 
helps. 

1200 Bits Per Second per second: I am glad thai my letter 
generated some mail and more information was gathered from 
the discussion that ensued. 

However, I ihink thai Mr. Harsch was a little over-critical in his 
treatmentof my letter, 

1 know very well that 1200bps modems work with the C-G-l, as 
1 use a Volksmodem 12 modem all the time. But maybe Mr. 
Harsch would listen to Steve Punter in his explanation of how 
he discovered the secret of running 1 200bps on a C-64. 

The following is paraphrased from Mr. Punter's explanation of 
how he modified and successfully wrote the necessary code to 
run 1200bps from within his 'famous' BBS program. 

When Mr. Punter tried to open an RS-232 channel at 1 200bps 
by using OPEN 2,2,0,CHR$(8) + CHRS(0), he found that he 
could send to the modem with no problems (which goes along 
with Mr. Harschs method of drivint^ RS-232 prinlers). How- 
ever, receiving was not so easy; he got nothing but garbage! 

But he discovered that by poking different values lo $0295/96, 
he was able to fine tune the receive timing values and make 
1200bps work with his BBS program. If you look at the Kernal 
routines to open an RS-232 channel, the bytes are loaded into 
locations $0293 lo $0296. But if the lower nybble of the control 
register is not zero, the Kernal goes to the lookup table and 
loads the values found there into bytes $0295/96. 

Some of the more advanced terminal programs around give 
you the option of adjusting the values at $0295/96 so that you 
can use the value that works best with your modem. 



On reference to ihc PRO (Programmers Reletence Guide), \ 
submit from page 349 the second paragraph alter the heading 
'OPENING AN RS-232 CHANNEL': 

■ Up to 4 characters can be sent in the filename field. The first 
two are the control and command register characters; the other 
two are reserved for future system options.' 

Most people I have talked lo personally and myself have taken 
that to mean that the 3rd and 4th bytes of the filename are 
either ignored or overwritten. Other sources of 64 information 
have slated the same thing. Take the bonk ^Anatomy of the C- 
64' from Abacus Software. On page 28, the table they show lo 
determine the lower nybble of the control byte specifically 
stales Ihat the User Defined Baud Rate option is not imple- 
mented. 

Ln the first edition of Sheldon Leemon's book 'Mapping the 64', 
he also continued the same myth. However, in subsequent 
editions that error was corrected. 

\ agree ihat the PRG tells us how to calculate the User Defined 
Baud Rale but the above quoted stalement usually keeps most 
people from trying, until they know better. 

One more proof for the problem I found was with Pirslterm5 by 
Tom Hughes. It is a fine Punier prolocal term program. I used it 
a lot at 301>bps. But when 1 upgraded lo 1 2()0bps. I found Ihat it 
did not work at 120Ubps. 1 received nothing but garbage (ala 
Mr. Punier). 

The program is written in ML and I got out my favourite 
monitor and started to poke around in il. 1 found that Mr, 
Hughes used 2 byte filenames to open his RS-232 channels. He 
had options for all the speeds listed in the PRG (50-%00 
BAUD), 

i was able to lo find room here to eliminate all the speeds 
except 300 and 1200bps, I used a 4 byte filename and used the 
value of CHR$(57) and CHR$(1) for the optional baud rate. Lo 
and behold, it worked! 

I again hope that this helps lo clear up a few cloudy points on 

this issue. 

Lyie R- Giese. Woodslock, IL 

Left Wing Interference Revisited *1: I reference to Jack 
Ryan's ^Lefl Wing Interference' letter in The Transactor Volume 
6Jssue06. 

Before I purchased a I7U2 monitor, I used a monochrome 
Zenith monitor, model ZVM-123. The Operating Guide con- 
tains the following cryptic sentence: 

Note: For best results, keep the Disk Units away from the left 
side of the Monitor (facing screen). 

This might refer to the same type of gremlins you saw men- 
tioned in the GT-4 cartridge manual. 
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Jack's problem remindeci me of something thai happened lo 
me with my Datasetle when i first got my Commodore 64. 

I'd just moved my equipment - C-64. Dataselte and old black- 
and-white TV that served as monitor - from the dining room 
table to the family room, and plunked everything down on a 
folding metal picnic table that we'd had for years. 

Before long ( noticed that I was getting an inordinate number of 
tape I/O errors when trying to load programs. 1 immediately 
assumed the Dataselte was loo close to the TV, so I moved it 
away. 

This had absolutely no effect at all, so I moved it again, 
separating the two even more. Still no improvement. 

I eventually reached the point where the TV and Datasette 
were on opposite ends of the table - eight feet apart - and still 
the errors came. Things were getting frustrating now. 

One Saturday morning I resolved to sit down at the computer 
and not get up until I had solved the mystery. And so I started 
experimenting with various conhgurations, 

A 

Some time in the early afternoon I noticed that 1 could elimi- 
nate the errors completely if 1 held the tape unit in my hand, at 
least a foot above the surface of the table. Proximity to the TV 
didn't seem to matter, as long as the Datasette wasn't actually 
touching the table top. 

1 decided that the table top was conducting the television's 
magnetism, so I tried insulating the Datasette. First I tried 
resting it on three issues of Compute! magazine (the old fat 
ones). That seemed to help a little, but 1 still had too many 
errors. A slab of pine shelving left over from an old project was 
next. That didn't help either. 

It struck me somewhere along the way that whal 1 needed was 
not just insulation from the table but physical separation from 
it. So my next step was to place the Datasette on an 8'' x 14' 
block of white styrofoam, the kind used to protect microcom- 
puters during shipping. That did it: the errors finally stopped. 

What caused the tape errors? I never did figure it out com- 
pletely, although I suspect that the table had actually, to some 
degree, become magnetized. I don't recall that the problems 
occurred when I first moved on the the metal, but only after a 
few weeks use- 
Would this also happen with a disk drive? I don't know, 
because about the same time 1 got a 1541 I got a wooden 
computer desk> and never saw the problem again. 

Frank Figlozzi. Bowie, MD 



Left Wing Inlerference Revisited *2: Reading the letters 
about 'Left Wing Interference' in the May '86 issue reminded 
me of a very similar experience. 1 have been using a C-64 since 
late '82 with an old industrial B/W Electrohome monitor. The 
image waved gently at the edges. I blamed the C-64 and 
bought a new Zenith CRT. The waves were less but still there. 1 
could have lived with this imperfect image if it were not for the 
fact that my 1541 drive suddenly failed to read program code 
that previously loaded perfectly. The drive was indeed sitting at 
the LEFT of the new monitor. 

Because the Electrohome CRT was totally enclosed in a 
grounded metal case, and the Zenith CRT had only a plastic 
enclosure, I suspected that stray electromagnetic fields from the 
CRT were disturbing the operation of the disk drive. This gave 
me the key to testing my hypothesis and finding a simple cure. 
A large ungrounded metal plate of 16x10 inches between the 
Zenith and the drive eliminated the load errors. So the cure was 
simply a good shield. An unsightly metal plate was not a 
practical solution. And I was not willing to reshuffle all the 
carefully positioned hardware on the computer desk. There are 
iwo alternative means of shielding: 

1 . Eliminate the source of the radiation by coating the inside of 
the monitor case with a conductive paint which is then 
grounded. 

2. Keep radiation out of the drive with the coating inside the 
case. 

Unfortunately, this method is not available to most of us. Early 
Apple computers were treated this way for similar reasons. 

Some time ago, I built a small wooden telephone box that 
straddled the drive unit from side to side, while leaving about 
one inch of air space at the top. With some aluminum foil from 
the kitchen, contact cement and duct tape, I "coated" the inside 
of the box to form a shield. After attaching a grounding wire, I 
found that the box when placed in its usual position over the 
drive, provided the necessary protection. I have not had a 
single load error since. The Electrohome has now given way to 
an equally 'leaky' 1 701 colour monitor. The problem recurs the 
moment 1 take the box away. The flyback transformers in both 
CRTs are in fact located at the left side. I do not recommend 
application of the plastic case. It is not possible to get a bond 
that will stand up to the temperature swings over time. You 
don't want any short circuits either. 

One of my friends took his drive back to the store for an 
exchange at least twice, I asked him what monitor he was 
using, and where it was sitting, f-le had put the drive on TOP of 
the monitor. Of course there was nothing wrong with the drive 
once he moved it to the right of the CRT. As a parting remark, 
similar load errors show up with tape transfers if the Datasette 
is held towards the left side of the monitor. Relocating it to the 
right does the trick. Guess where my tape unit has been all 
along until 1 moved it? 

John C, Hollemans, Oakville, Ontario 
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TransBASIC Notes 

If you have purchased The TransBASfC Disk, a couple of minor 
bugs have been found in the SYMASS 3. 1 Assembler. See the 
arflcle later this issue tilled "Save SYMASS Symbols '^for details. 

TransBASIC has been a regular Transactor feature for almost 
two years. Those who have been following the series know all 
aboutit. Recently, ftouiever. uje'oe received letters to the effect of 
"what is TransBASIC?': Quite simply. TransBASIC is a method 
of adding new commands to BASIC (see 'Tart I: " below). The 
commands come in 'modules ' which may contain one or more 
commands OR functions. After merging the modules of your 
choice, the entire lot is assembled and linked into BASIC. The 
new commands can then be used Just like any of the other 
commands that ore already in the BASIC ROM when the €64 is 
powered up. 

The TransBASIC Disk 

The TransBASIC Disk contains all of ihe modules published so 
lar and it comes with its own assembler, SYMASS 3.1. Any 
combination of modules can be linked into BASIC with only a 
few simple steps. From start to finish is usually no more than a 
couple of minutes. . , even less onte you get the hang of il. It 
comes with a handy reference for just $9.95. See lire order card 
at center page, : ' . ,, ■ i ., , 



I, 



TransBASIC Parts I to 8 Summary: . , i 

I I, 

Part 1: The concept of TransBASIC - a custom command 
utility that allows one to chvo.se from o library only those 
commands that are necessary for a particular task. 

.1 ■ ■ . ij,' i.i ■ ■ 'I 

Part 2: The structure of a TransBASIC module - each TransBA- 
SIC module follows a format designed to make them simple to 
create and 'mergeable " with other modules. 

Pari 3; ROM routines used by TransBASIC - many modules 
make use of ROM routines buried inside the Commodore 64. 
Part 3 explains how to use these routines when creating new 
modules. ■ r i 



. .J. .-■ 
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Part 4: Using Numeric Expressions - details on how to make 
use of the evaluate expression ROM routme. ,►, , . , , 

Part 5: Assembler Compatibility - TransBASIC modules are 
written in PAL Assembler format. Techniques for portmg them 
to another assembler were discussed here. , , 

Part 6: The USE Command - The command 'ADD' merges 
TransBASIC modules into text space. However, as more mod- 
ules are ADDed, merging gets slow. The USE command was 
written to speed things up. USE also counts the number of 
statements and functions USEd and updates the totals (source 
line 95} automatically. . ^ ; 

Pari 7 " Usually TransBASIC modules don) need to worry 
about interfering with arte another. When two or more modules 
want to alter the same system uector, however, a potential 
crash situation exists. Part 7 deals with avoiding this problem. 

Part 8 - Describes the five modules for Part 8. 

Part 9 - Describes the six modules for Part 9, and makes first 
mention of The TransBASIC Disk. 
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Time presses extremely this issue, so I'll do little more here 
than briefly introduce the six short modules below. First, 
though, one matter that can't wait. 



1 1; 



John Houghton of Colli ngwood, Ontario, has drawn our atten- 
tion to a bug in the MC GRAPHICS module of TransBASIC 
Installment "8 (volume 6. number 6). The bug consists of 
several lines that I inadvertently transposed in editing the code. 
To fix it, load in the source code, and type the following lines: 

110SOIda$d018 
11082 stamcuvid + 2 
11098 Ida #$68 
11100 Sta$d018 
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A bit later in the same module, a dollar sign found its way into 
the following line, from which it must be deleted (unlike the 
previous one, this bug would have been reported as a syntax 
error when you assembled the module): 

11264 stxtS 

I apologize to anyone who has had trouble because of the 
above errors. 

Mr. Houghton also points that ^'When returning to the original 
text screen, sometimes the screen colours will be mangled. 
This is because the colour f^M is not stored when entering and 
exiting MC GRAPHICS. A new module would be needed to lake 
care of this, or perhaps use MOVE & FILL This leads fo fhe next 
bug. FILL works fine, but beware, as written, MOVE does not. 
The bug is in lines 8200 to 8202. The destination address is not 
changed from Floating Point notation to Integer. Add line 8201 

as: 

8201 jsr$b7f7;fp1 loint 

With this fix, one can preserve colour RAM with MOVE prior to 
entry, and MOVE it back on exit/' 

One extremely trivial bug occurs in the PRG MNGMNT mod- 
ule. Line 1 1 is a only a remark, but the REM was left of*, if this 
were the last module USEd, assembling would stop with a 
?SYNTAX ERROR. Simply insert the "REM^' at the beginning of 
line ! 1 {or delete line 1 1 if you like), and RUN it again. This has 
been fixed on The TransBASlC disk. 

This issue's modules are LWRITE (Program I), by Steve Ham- 
mer of Muscatine, Iowa; RESTORE (Program 2) and CLRA 
(Program % both by past contributor Wayne Happ of North 
Babylon. New York; CCMDS (Program 4). by Joel M. Rubin of 
San Francisco, California, also a previous contributor: SPEED 
(Program 5), by Guido Slruben of Calgary, Alberta; and TRAP 
(Program 6), by William Turner of Winnipeg, Manitoba. 

Several of these modules alter system vectors, which has 
meant that the PAL-specific assembler directive: 

.lF>(-&255)+1:- = »+(*&1) 

was needed on a few occasions. Users of Robert Huehn's 
SYMASS assembler should change these lines to; 



.PAD 



when typing the modules in. This change will also be required 
in the MC GRAPHICS module at line 12150 and the PRG 
MNGMNT module at line 182. Once again, if you have The 
TransBASlC disk, these changes have already been made. 

Well, as ! said, things are a trifle hasty this lime around, so 
that's all for now. See you next time, I hope at greater length. 



New Commands 

LDVN (Type: Statement Cat*: 161) 
Line Range; 12190-12210 
Module; LWRITE 
Example: LDVN 5 

This statement sets the printer device number for the LWRITE 
and LLIST commands contained in this module. Device num- 
bers 4 through 7 are legaL The default is 4. 

LSEC (Type: Statement Cat *: 162) 
Line Range; 12212-12218 

Module: LWRITE 

Example; LSEC 7 

This statement sets up a secondary address to be used by the 

LWRITE and LLIST commands contained in this module. The 

allowed range is through 255. The default is 255. 

LWRITE (Type: Statement Cat": 163) 

Line Range: 12212-12314 

Module: LWRITE 

Example: LWRITE ^ A PERMANENT RECORD" 

Example: LWRITE A.B$.C(3) + 2; 

This statement is almost exactly the same as the standard 

PRINT statement, except that output is directed to the serial 

device specified with the LDVN command in this module 

(default 4), The command eliminates the need for opening and 

closing a hie to the printer. The keyword LWRITB was used 

instead of the standard LPRINT in order to avoid a collision 

with TransBASiC^s LP command, which appeared in the 

SOUND THINGS module. 

LLIST (Type: Statement Cat": 164) 

Line Range; 12212-12314 

Module: LWRITE 

Example: LLIST 

Example; LLIST 37-150 

This statement is the same as the standard LIST statement, 

except that output is directed to the serial device specified with 

the LDVN command in this module (default 4). The command 

eliminates the need for opening and closing a file to the printer, 

and for using the BASiC CMD command to divert output there, 

RESTORE (Type; Statement Cat *: 165) 

Line Range: 12316-12344 

Module; RESTORE 

Example: RESTORE 

Example: RESTORE 100 

This statement is the same as a BASIC RESTORE, but accepts a 

target line number if one is provided. Subsequent data reads 

will begin from the target line. 

CLRA (Type: Statement Cat *: 166) 
Line Range: 12346-12356 
Module: CLRA 
Example: CLRA 
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This statement eliminates any arrays that have been created, 
without affecting regular variables. 

CGOTO {Type: Statement Cat': 167) 
Line Range: 12358-12362 

Module: CCWDS 

Example: CGOTO 100 + 10-N 

The target line number in this variant of the GOTO statement is 

calculated from the argument, which can be any valid BASIC 

expression. 

CGOSUB (Type: Statement Cat*: 168} 

Line Range: 12364-12394 

Module: CCMDS 

Example: CGOSUB SR 

The target line number in this variant of the GOSUB statement 

is calculated from the argument, which can be any valid BASIC 

expression. 

CRUN (Type: Statement Cat*: 169) 
Line Range: 12396-12404 

Module; CCfVlDS 

Example: CRUN -100*{[vl =4) 

The target line number in this variant of the RUN statement is 

calculated from Ihe argument, which can be any valid BASIC 

expression. Unlike RUN itself, CRUN cannot be used alone -- 

the argument expression is required, 

CRESTORE (Type: Statement Cat ■: 1 70) 
Line Range: 12406-12446 

Module: actios 

Example: CRESTORE 25 

This version of the RESTORE statement requires an argument 

expression, which specifies the line from which data is to be 

read by subsequent READ statements. 

SPEED (Type: Statement Cat": 171) 

Line Range: 12448-12542 

Module: SPEED 

Example: SPEED 15 

This statement specifies a speed at which all printing will be 

performed. Larger arguments slow printing, to a maximum of 

255. A zero argument restores normal-speed printing. 

TRAP (Type: Statement Cat *: 172) 
Line Range: 12544-12664 

Module: TRAP 
Example; TRAP 100 

This statement specifies a line at which program execution will 
resume if an error, such as a syntax or illegal quantity error, 
should occur. The only other effect on the program is that the 
slack is cleared, ending any current FOR-NEXT loops and 
escaping to lop level irom any currently-executing subrou- 
tines. 



ERROR (Type: Function Cat*: 173) 
Line Range: 12666-12670 

Module; TRAP 

Example: IF ERROR = 1 1 THEN PRINT ^ BAD SYNTAX! " 
This pseudo-variable contains Ihe BASIC error number of the 
most recently trapped program error. 

ERRLIN (Type: Function Cat': 174) 
Line Range: 12672-12692 

Module: TRAP 

Example: PRINT - THE ERROR WAS IN LINE ' ;ERRL1N 
This pseudo-variable contains the number of the line in which 
the most recently trapped program error occurred. 
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LK 


rem Iwrite (s. hammer 1 2/65) 


n 




FH 


1 : 








JH 


2 rem 4 statements, functions 






HH 


3: 








DF 


4 rem keyword characters: 19 






JH 


5; 








NJ 


6 rem keyword routine line 


ser # 


BL 


7 rem s/ dvn 


Idv 12190 


161 


BF 


8 rem s/lsec 


se 12212 


162 


FN 


9 rem s/lwrite 


1 Iprn 1 2236 


163 


CC 


10rems/llist 


1st 12252 


164 


PH 


11 : 








KD 


12rem ' = -^: 


:zz = = = :.^^= = = = =^^ 


iiSr = 


-==-=== 


B 


13: 








FK 


149 asc "IwritEldvNIseCllisT" 






NH 


1149 ,word 1 


3fn-1,ldv-1,lse-1,lst-1 




El 


12190 Idv 


jsf $b79e ; 


get device ff 


NK 


12192 


cpx #3 ; 


test3< = dv<-8 


BJ 


12194 


bcc badev ; 


no 




NA 


12196 


cpx #8 






FN 


12198 


bcs badev ; 


no 




KJ 


12200 


stx dv 






GJ 


12202 


rts 






CC 


1 2204 , 








IN 


1 2206 badev Idx rf9 ; 


illegal device #' 


AL 


12208 


jmp $a437 






IC 


12210; 








K 


12212 Ise 


jsr $b79e ; 


get sec address 


FJ 


12214 


stx se 






EK 


12216 


rts 






AD 


12218; 








BL 


1 2220 opf 


jsr ipn 


.ensure file closed 


JL 


12222 


Ida #0 


, no name 


LJ 


12224 


jsr $ftbd 


;kernal setnam 


CA 


12226 


Ida n7B 


,1ile#120 


IH 


12228 


Idx dv 






LG 


12230 


Idy se 






JK 


12232 


jsr $ffba 


jkernalsetlfs 


00 


12234 


jmp $tfc0 


jkernal open 


CE 


12236; 








LA 


12236 Iprn 


jsr opt 


;open 


print file 


BO 


12240 


dx #$78 


itie# 




EO 


12242 


jsr $79 
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JK 
AH 

y^H 

CE 
CF 
PF 
OG 
DP 
FA 
FG 
EF 
PH 
PP 
EG 
DA 
FG 
NG 
JD 
CA 
AG 
PK 
CB 
MO 
IH 
CO 

LI 

LL 

OB 

IH 

LG 

PB 

II 

JD 
MK 
KA 
AJ 



lA 
FN 
Al 

HO 

JH 

NJ 

KO 

MH 

00 

OH 

LL 

PK 

BE 

FN 

LP 

IM 

EE 

OA 

KF 



12244 

12246 I pri 

12248 

12250 

12252; 

1 2254 1st 

12256 

12258 

12260 

12262 

12264 

12266 

12268 

12270; 

1 2272 Ilix 

12274 

12276 

12278 

12280 

12282 

12284 

12286 

12288 

12290; 

12292 Iret 

12294 

12296 

12298 

12300 

12302 

12304 

1 2306 ; 

1 2308 dv 

12310 se 

12312 wsvec 

12314; 



isr Saa90 

)SF $abb5 

Ida #$78 

jmp $ffc3 



jsr 

jsr 

Idx 

stx 

)sr 

isr 

jsr 

jmp 



opf 

ItiX 

#$78 

$13 

$el18 

$aad7 

$79 

$a6a4 



print rtn entry 
basic clrchn 
close file 
kernal close 

open print file 
grab warmstt vec 
tile# 

basic chkoul 
print cr & If 
reget byte 
basic list entry 



Ida $0300 

Idy $0301 

sta wsvec 

sly wsvec + 1 

Ida #<lre! 

Idy #>lret 

sta $0300 

sty $0301 
rIs 

Ida wsvec 

Idy wsvec + 1 

sta $0300 

sty $0301 

jsr $aad7 

jsr Ipri 

jmp $e3S6 

.byte 4 
.byte$ff 
.word $e38b 



Program 2: REST 

Orem rest(w. happ) : 

1 . 

2 rem 1 statement, functions 

3 

4 rem keyword characters; 7 

5: 

6 rem keyword routine line ser # 

7 rem s/reslore res 12316 165 

8: 

9 rem = = = = = = = = = = = = = = = = = = = = = = = = = = ~~^ = ^ 

10: 

150 .asc "restorE" 

11 50 word res-1 

1 23 1 6 res beq re2 

12318 jsr $a96b 

12320 jsr $a613 

12322 bcc re3 

12324 Idx $5t 

12326 Idy $60 

1 2328 dex 



;no parameter 

,ascii to integer 
;test line extsts 
; no 
;get line address 

;point tonull byte 



GE 


12330 


bne rel 


; before ine 


HO 


12332 


dey 




LP 


1 2334 re1 


stx $41 


;updatedata plr 


IF 


12336 


sty $42 




OB 


12338 


rts 




IG 


1 2340 re2 


jmp $a81d 


, basic restore 


FG 


12342re3 


jmp $a8e3 


;'unde1 statement 


OK 


1 2344 ; 







Program 3: CLRA 





AN 


Oremclra{w. happ) 


ri 


;direclwafmstart 


■ FH 


1 : 




; vector to 


Al 


2 rem 1 statement, functions 


; routine be ow 


HH 


3: 






EO 


4 rem keyword characters: 4 






JH 


5: 






NJ 


6 rem keyword routine 


fine ser # 




PI 


7 rem s/cira cir 


12346 166 




MH 
00 


8; 








3 "--"-""■■ 




OH 


10: 




;restoreold 


EM 


151 asc "crA" 




; ws vector 


BO 


1 151 wordclr-1 






PU 


12346clr Ida $2f 


;sel end-ot- arrays 




10 


12348 Idy $30 


; ptr to slart-of- 


;printcr& f 


LM 


12350 sta $31 


; arrays 


jclrcfin, dose 


GG 


12352 sty $32 




;9xit to ready 


OC 


12354 rts 






KL 


12356; 




;print dev ^ 






;printsecaddr 








;warmstart rtn 









r 



IB 
FH 
JH 
HH 
IE 
JH 
NJ 
MD 
KM 
CP 
BR 
PH 
KD 
81 
CP 
CI 
PC 
NP 
AM 
GC 
ML 
KE 
OM 
BB 



Program 4: COMPUTED CMOS 

rem computed cmds {j. rubin sept/85) 

1 : 

2 rem 4 statements, functions 
3: 

4 rem keyword characlefs. 23 
5: 



6 rem keyword routine 

7 rem s/cgoto cgto 

8 rem s/cgosub cgsb 

9 rem s/crun crn 

1 rem s/c restore crsr 

11 . 

12rem = = = = = = = = = = = = = ^^^ 



line ser# 
12358 167 
12364 163 
12396 169 
12406 170 



13: 

152 asc "cgotOcgosuBcruNcrestorE" 

1 152 word cgto- 1, cgsb- 1, crn- 1,crsr-1 



12358 cgto jsr dm 

12360 jmp $a8a3 
12362 , 

12364 cgsb Ida #3 

12366 jsr $a3ib 

12368 Ida $7b 

12370 pha 

12372 Ida $7a 



;eval hne # 
;entergoto 

;Gheck slack space 

;push chrget ptr 
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CN 

LA 

GN 

JP 

KN 

MG 

ON 

GH 

KE 

ND 

AO 

Al 

JN 

PN 

EH 

KO 

HN 

PG' 

GP 

MD 

KP 

MO 

HK 

OG 

LE 

CM 



EB 

Jl 

ND 

lA 

GF 

CC 

AN 

FH 

00 

EB 



12374 

12376 

12378 

12380 

12382 

12384 

12386 

12388 

12390 cgsl 

12392 

1 2394 ; 

1 2396 crn 

12398 

12400 

12402 

1 2404 , 

12406 crsr 

12408 

12410 

12412 

12414 

12416 

12418 

12420 

12422 

12424 

12426 

12428 

12430 

12432 crel 

12434; 

12436 din 

12438 

12440 

12442 

12444 

12446; 



pha 

Ida 

pha 

Ida 

pha 

Ida 

pha 

jsr 

jsr 



$3a 

$39 

#$8d 

$79 
eg to 



;push line # 



jmp $a7ae 

Ida #0 
jsr $ff90 
jsr $a660 
beq cgsl 



jsr 

Ida 

pha 

Ida 

pha 

jsr 

sla 

Ida 

sta 

pi a 

sta 

pi a 

sta 

rts 



din 
$7a 

$7b 

$a8a3 
$42 
$7a 
$41 

$7b 

$7a 



ipush gosub token 



;"crun'' entry 
;interpreter loop 

;kernal msgsoff 

;dr 

; branch always 

;eval line # 
;push chrget ptr 



, basic goto 
;new chrget plrto 
; data pointer 

;restore chrget ptr 



jsr $ad8a 
jsr $b7f7 
cmp#$fa 
bcc crel 
jmp $b248 



eval num expr 
conv to integer 
test < 64000 
yes 
'illegal qty' 



Program 5: SPEED 



JM 


rem speed (guide strben 1 1 /85) : 


FH 


1 : 


Al 


2 rem 1 statement, functions 


HH 


3: 


FO 


, 4 rem keyword characters: 5 


JH 


5: 


NJ 


6 rem keyword routine line ser i 


OJ 


7rems/speed spd 12448 171 


MM 


8: 


00 


9 rem = = = - = = = =--' = = = = -■-= = - = = = = - = = -"• 


OH 


10: 


NK 


153 asc "speeD" 


JJ 


1153 wordspd-l 


IC 


2125 jsr morvec 


EL 


2555 sr ki vec 


NF 


9162 morvec = • 





9165 jsr spdon ;print$326 


GM 


9178 rts 


CF 


9180; 



MJ 

AJ 

KN 

GG 

BK 

EK 

KB 

KA 

Dl 

EK 

BK 

CD 

BJ 

OG 
FF 
IG 
MN 
BB 
ED 
MG 
GH 
AE 
NH 
EE 
IG 
BK 
Ml 
EM 
Jl 
FM 
PL 
HK 
CG 
HK 
GG 
MH 
IF 
OJ 
KM 
LN 
EC 
IN 
EG 
KB 
00 
PP 
MG 
BN 
BG 
GN 
EH 



9182kilvec 

9185 

9198 

9200; 

1 2448 spd 

12450 

12452 

12454 

12456 

12458 

12460 

12462 

12464 

12466 

1 2468 spl 

12470 

12472 3p2 

12474 

1 2476 sp3 

12478; 

12480 dly 

12482 

12484 

12486 

12488 

12490 

12492dl1 

12494dl2 

12496 

12498 

12500 

12502 

12504 

12506 

12508 

12510 

12512 



= # 



jsr 
rts 



spdoft ;prinl$326 



jsr $b79e 
stx xbyte 
cpx #0 
beq spdoft 
Ida $0326 
cmp prvec 

beq spl 
Ida $0327 
cmp prvec + 1 
bne sp3 
Ida #<dly 
^>dly 
$0326 
$0327 



get byte in ,x 

put it away 

lest speed 

yes 

test vec altered 

; no 



Idy 
sla 
sty 
rts 



yes 

point to delay 

routine 



pha 

Ixa 

pha 

tya 

pha 

Idx 

Idy 

dey 

bne 

dex 

bne 

pla 

tay 

pla 

tax 

pla 

imp 



;push registers 



xbyte 
#$c8 

dl2 

dll 



get speed 
init counter 
eat time 



.restore registers 



(prvec) .print 



12514; 

12516 Spdon Ida 

12518 

12520 

12522 sty 

12524 rts 

12526; 

12528 spdoft Ida 

1 2530 Idy 



$0326 
Idy $0327 
sta prvec 

prvec + 1 



prvec 
prvec + 1 



12532 bne sp2 

1 2534 ; 

12536 .If >(*S.255) + 1: ' = * 

12538 prvec .word 

12540 xbyte byteO 

1 2542 : 



+ ("S.1 
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Program 6: TRAP 


'AG 


12574 


Idy #>warm 










L 


FN 
1 ID 


12576 
12578 


sta $0302 
Sly $0303 






NM 


rem trap (wi iiam turner) 




FH 


1 : 




'■ JG 


12580 


Ida #$80 


;trap flag on 




E 


2 rem 1 statement, 2 functions 




FJ 


12582 


sta trtlag 






HH 


3: 




10 


12584 tra2 


rts 






LE 


4 rem keyword characters: 15 




AK 


12586; 








JH 


5: 




FB 


12588 newv 


bmi warm 


; branch on run-stop 




NJ 


6 rem keyword routine line ser # 


DK 


12590 


stx errno 


.store error # 




BJ 


7rems/tfap tra 12544 172 


NF 


12592 


Ida $39 


;store ine# 




ME 


1 

Sremt/error erro 12666 173 


HE 


12594 


Idy $3a 






CK 


9remt/errlin errl 12672 174 


PA 


12596 


sta eine 






OH 


10; 




IF 


12598 


sty e tne + 1 






JD 


11 rem ============ ==-====- 


1 


AP 


12600 


bit trflag 


;test trap on 




Al 


12: 


1 


EN 


12602 


bpl eout 


; no 




NO 


154 asc "trap" 


1 


01 


12604 


Ida tlin 


;get trap line rf 




KC 


623 asG "erroRerriN^ 




BB 


12606 


Idy tlin+1 






GJ- 


1154 wordlra-l 




lA 


12608 


sta $14 






1 


1623 worderro-1,errl-1 




NG 


12610 


sty $15 






10 


1 2125 jsr morvec 




IN 


12612 


Idx #$fa 


;cTear slack 




EL 


2555 isr kilvec 




CE 


12614 


txs 






NF 


9162 morvec = • 




FK 


12616 


Ida #$a7 


;push interpreter 




NF i 


9164 jsr auton ; 


warm Start $302 


BJ 


12618 


pha 


; loop address 




KE 


9166 jsr erron ; 


error $300 


CP 


12620 


da #$ad 






GM 


9178 rts 




KM 


12622 


pha 






CF 


9180; 




JJ 


12624 


jmp $a8a3 


,goto trap line 




MJ 


9182 kilvec = * 




IM 


12626; 








ID 


9184 isr autoff ; 


warm start $302 


MB 


12628 warm 


jsr erroff 






CO 


9186 jsr erroff ; 


error $300 


AG 


12630 


jsr autoff 






KN 


9198 rts 




JK 


12632; 


jsr ownrtn 


;cancel hi-resetc 




GG 


9200; 




JD 


12634 


Idx #$80 


;exfl to 'ready/ 




M 


9202 autoff Ida wrmsrt ; 


from d. spruyt's 


00 


12636 


mp ($0300) 









9204 sta $302 ; 


prg management 


EN 

1 


12638; 








GN 


9206 Ida wrmsrt-*- 1 , 


module 


LL ' 


1 2640 erroff 


Ida errvec 






El 


9208 sta $303 




OO 


12642 


Idy errvec -fl 






GOi 


9210 rts 




HB 


12644 


sta $0300 






OH i 


9212; 




KH 


12646 


sty $0301 






ND : 


9214 auton Ida $302 ; 


from d. spruyt's 


IJ 


12648 


sr trflag 


jtrap flag off 




EF 


9216 sta wrmsrt ; 


prg management 


GF 


12650 


rts 






ON 


9218 da $303 ; 


module 


CO 


1 2652 ; 








EJ 


9220 sta wrmsrt + 1 




JA 


1 2654 erron 


da $300 






CP 


9222 rts 




GB 


12656 


dy $301 






Gl 


9232; 




KB 


12658 


sta errvec 






LD 


10082 Jt>('&255)-f1: • = • + ( 


*&1) 


OD 


12660 


sty errvec + 1 






KC 


10084 wrmsrt wordO 




CG 


12662 


rts 






MN 


10086; 




00 


1 2664 ; 








MF 


12544 tra jsr $ad8a 


;getaddr for trap 


PL 


12666 erro 


dy errno 






DH 


1 2546 ]sr $b7f 7 




OK 


12668 


jmp $b3a2 






JJ 


12548 sty tlin 


;storeline# 


EP 


1 2670 ; 








HL 


12550 sta tlin+1 




BJ 


12672 errl 


dy eline 






PJ 


12552 tax 


;test trap ott 


GA 


12674 


Ida eline -+- 1 






PM 


12554 bne tral 


; no 


ME 


12676 


jmp usfp 






DM 


1 2556 tya 




MP 


12678; 








CJ 


12558 beq erroft 


; yes 


CG 


12680 eout 


.byle$4c 


;jmp 




M 


12560 tral bit trtlag 


;testtrapon now 


NO 


12682 errvec 


; word 


;old error vector 




MC 


12562 bmi tra2 


; yes 


IP 


12684 tin 


.word 


, trap line 




IE ! 


12564 Ida fr<newv 


;use new err vec 


IK 


12686 errno 


byleO 


;error number 




BK 


1 2566 Idy #>newv 




EO 


12688 eine 


.word 


;erroneous hne it 




LM 


12568 sta $0300 




01 


1 2690 trf lag 


byteO 


;lrap set flag 




00 
IE 


12570 sty $0301 
12572 Ida #<warm 


;use new ws vector 


KA 


1 2692 ; 
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The ATARI ST Notebook 



Jack Cole 
Kitchener, Ont* 



New hardware is, after all new hardware. And using a new 
operating system is, after all, like opening a can of worms. . . 



Sometime early in the summer of 1985 we became one of the 
first developers privileged to receive a pre-production version 
of the Atari 520ST To say we were privileged is of course 
dependent on your point of view. We were all excited at the 
prospects of ploying with the beast, but the thought of doin^ 
real work on it left us quite apprehensive. New hardware is, 
after all, new hardware. And using a new operating system is, 
after all, tike opening a can of worms - with your teeth. And 
pre-releases are generally best left until they are no longer 
pre-releases. And pre-releases with windows and rodents are 
best dragged quickly over to the trash can symbol (or so we 
believed). The SI' had tremendous potential in this regard; it 
could be potentially difhcult to get our code where we wanted 
it, and it could be potentially impossible to debug. New ma- 
chines very often wither away and die from these maladies as 
may the programmers who beat their heads against them. 

As it turned out, we needn't have concerned ourselves. The ST 
is a refreshingly solid and simple system. 

Our mission was to investigate and hopefully port our network 
(IMAGINET) and software products from the PC-10, Compaq, 
and IBM compatible machines to the new Atari, there to 
provide low cost and high performance network workstations 
for our database (The Manager). This notebook will provide an 
overview of the Atari programming environment and how we 
found in a development atmosphere. Please remember that 
our needs and desires in a computer may bear little resem- 
blance to yours, so some of our criticisms and preferences may 
seem trivial to you. They probably are! 

The Hardware 

First of all a brief description of the ST hardware may be in 
order. I won't go into much detail here though; lots of articles 
have been written in other places about the 520 and it^s new 
big brother the 1040. Especially see the November 1985 issue 
ofTtieTransactorand the March 11^186 issue of BYTE which 
looks inside the 1040 in very nice detail. Our experience has 
mostly been with the 520 without the operating system in 
ROM; however our recent 1040 investigations indicates that 
comments here apply to all versions of the machines. 

The ST comes in several pieces; more on this later. Both colour 
and monochrome monitors are available. The monochrome, 
operating in high resolution mode, offers 640 by 400 pixels; the 
colour offers 640 by 200 with four colours (medium resolution) 
or 320 by 200 with 1 6 colours (low resolution). What this really 



means is that in order to view 80 columns - an absolute 
necessity for professional programming or business use - only 
four colours can be used. This turns out to be a bit restrictive for 
some applications, but not fatal. 

The 1040 has a built-in 3.5 inch double-sided floppy drive. 
The external drives (you may have two drives attached) come 
in either single- or double-sided versions, with formatted 
capacities of 360k and 720k respectively. The drives seem to be 
slower than they should, but the real drag with the externals is 
that each requires a separate power supply, and operates at the 
end of a {'err short cord from the main system unit. Asa result 

(especially true of the 520) the drives and paraphernalia tend to 
be annoyingly in the way. 

Our prototype hard disks - a slight variation of SCSI disks, 
dubbed ACSl by ATARI - have performed well. The 20 mega- 
byte drive is extreuK^ly quick and seems very reliable. Now that 
this drive is ready for the general public, it should knock 
several layers of socks off, and at a very affordable price! 

The DMA port, through which the hard disk is connected, is 
intended to support up to 8 devices. Already developed and 
waiting for the "rit»ht time" is a CD-ROM - a very large 
capacity, read only storage system using compact disk technol- 
ogy. ATARI is supposedly waiting for a CD that can be used both 
for audio and with the ST. The DMA port is also the logical 
place for a network connection, and indeed is where ours 
connects, lookint^ for all the world to the ST like a collection of 
hard disks, 'the two complaints we have with the DMA port are 

that (again) the cables must be very short, and the ST has 
difficulty (electrically) in handling more than one device, ATARi 

(or a third party) is believed to be building an eight connector 
box to remedy these problems. 

The system unit is the real meat. Driven by a Motorola 68000 
l6-almost-32 bit processor, it also contains the RAM (512k or 
IM), the operating system in ROM (early versions of the 
machine did not have TOS in ROM, but it is now available), 
MIDI, RS232. mouse and parallel ports, interfaces for the disk 
drives and monitors, power supplies for the 1040, and so on. 
Oh, and one other thing. The system unit is really (he key- 
board. 

The layout of the keyboard is very similar to that of an IBM PC; 
undoubtedly a good bit of planning as it makes migration from 
that machine a bit easier. It has 10 function keys, an 18 key 
numeric cluster and an extra 8 key cluster, in addition to the 



TTie transactor 



24 



Sept. 19e6: Volufne 7, Iswe 02 



regular alpha key layout. The fee! oi the keybo^ird is, however, 
less than satisfactory. Tlie keys are dead to the touch offering 
no lactile feedback, so that a former PC user would be very 
uncomfortable typing on the ST. The 1040 has made very sliiiht 

improvements in this area; more are needed. 

The .second major complaint with the physical side of the ST i.s 
that it does indeed come in pieces. A iwo-lloppy 520 develo|>- 
ment system comprises 3 power siipphes, 4 power cords, and 3 

other very short cables, apart from Ihe 4 basic components. 
This results in a cluttered and awkward desk, and a difficult 
system to transport. The plethora of cables means that the 
keyboard is virtually fixed in place. The 1040. by building in 
two of the supplies, one floppy and an RF modulator (in some 
models) will make Ihe ST much tidier and easier to pick up and 
take hornc from the office. In the mean time there's a fortune to 
be made selling nice little cases to pack your ST into. 

The Operating System 

Many 68000 based machines have been brought to market in 
the last 3 or 4 years, necessitating 68000 based u[>efdting 
systems. Most developers went to some UNIX variation or 
another, because UNIX had been well shaken down on various 
Digital Equi|)menl machines and tlie G8000 suited UNIX to a 
tee. Besides which, it was trendy lo iiave UNIX available; sort of 
like the flavour of the month at the local Yuppie Gourmet Tofu 
Palace. So, many 68000 boxes come with an official UNIX 
System, some other port (with a UNi prefix or IX suffix) or a re- 
implementation by another software house. Motorola, as the 
chip developer, got off lo an early start with its own VersaDOS 
system and then jumped on the bandwagon by offering UNIX 
as an alternate system for their VMR line. Commodore, as was 
discussed in a recent issue of The Transactor, came out with 
a new multi-tasking multi-window DOS for the Amiga. But 
whatlbelievethe.se people missed when bringing their stuff lo 
market, was that such offerings are much too complex for 
nearly everyone's needs, (Mind you, only one of these compan- 
ies is truly aiming at the mass market!) As a one-lime UNIX 
system's fanatic (I, too, was once guilty of jiorting UNIX to a 
new 68000 box) 1 can appreciate its tremendous power and 
efficiency. However putting UNIX-type products in front of 
most users, is like giving them a 747 when they asked for a 
Toyota. It has way too many gadgets, takes way too many 
resources, makes mostly noise and smoke, requires lots of 
special training and [)robably doesn't fit in the i^arage anyway! 
On the whole it creates more problems than it solves; more 
people will give up than will manage to take off. 

Some percentage of the (briefly euphoric) latter group may 
actually land safely again. 

The ST operating system (TOS) turned out to be a very pleasant 
surprise. When ATARI needed an operating system developed, 
they went to Digital Researcti (DRI) - literally; ATARI supplied 
most of Ihe people and did much of the work while DRI 
retained the rights. Usin^ DRI proved lo be both a blessing and 
a curse. The curse is that much of TOS is tiow out of ATARrs 
hands, and so problems with TOS may take a long time to be 
fixed, simply because ATARI does not have the means and DRI 



does not have the inclination. Hopefully these issues will be 
resolved, so that future releases of TOS can correct some of the 
existing problems. 

The blessings are that TOS has so few of these ^'problems", and 
is not simply "son of UNIX'^ or even "son of CPM" as it could 
easily have ended up. While there are some CPM/68K hold- 
overs, Ihe really gootl news about TOS is that it is basically (are 
you ready) an MSDOS compatible system! That's right, DRI 
took the foundation of MSDOS and recreated it on the ST. Note 
that this does not mean ttiat programs from your PC will run on 
the ST. It does mean that they can be moved to the ST much 
more easily. While they were at it, DRI moved their GEM 
windowing environment (deve]o]jed for MSDOS) as well. Peo- 
ple familiar with windows will find GEM's Desktop very famil- 
iar (Apple believed it was much /oo familiar, and sued DRI); the 
trash can. disk and file icons are there, as are the standard 
mouse operations. The screen is quite nicely done; much 
cleaner than the Amiga screen. Those of you who dislike 
rodents will be pleased to know that the windowing environ- 
ment can be punted [it W is in RAM), leaving a sT/e// (the proper 
name for a Command I.ine Interpreter) which will execute 
commands from Ihe keyboard. 

The on-disk structures are idt^ntical to those of MSDOS (very 
conveniently allowing PC^s and ST^s to share disks on a 
network). The resulting filesystem is very straightforward; it is 
not easily damaged iind quite simple to repair. The operating 
system calls (open a file, read a file, etc.) are nearly the same as 
MSDOS, making the job of software porting very direct. This 
was another smart move by ATARI, as it should speed up the 
availability of popular software packages. 

However, all is not perfect. TOS has not yet been equipped with 
the adequate set of utilities that make up MSDOS. If you work 
outside of the windowed environment, you must be prepared 
for frustrations. The shell has a few-huilt in commands (COPY, 
RENAME, TYPE etc.) but they are awkward and do not accept 
wildcards properly. There are very few external commands, 
and they are equally crude. Fortunately, the C compiler, assem- 
bler and linker included with our development kit worked fine 
(well, nearly so) and we were able to surmount these problems. 

The first things' we moved to the ST were our own screen 
editor, shell, object librarian, file system palcher, copy pro- 
gram, and a collection of other useful utilities. Our familiar 
programming environment from the PC was all in place on the 
ST in 3 or 4 weeks, so that we now have two nearly indi.slin- 
guishable systems to work on. 

TOS Calls 

As mentioned, the operating system calls are nearly identical to 
those of MSDOS version 2- Some of the more subtle things were 
missed, leading us to suspect that DRI didn't really know how 
the MSDOS versions performed but instead worked from a 
manual. A few calls have been removed and a couple of them 
work slightly different, but the discrepancies are very minor. 
All are reached by building a parameter block on the stack and 
issuing a special fiSOOO instruction. TRAP 1. The item at the 
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top oi the black is The 16-bit function 
number as described below, followed 
by the function's parameters. This pa- 
rameter passing convention is the 
same as thai used by C and other high 
level languages, and makes high level 
calls to fos quite simple. Most results 
are returned via data register 0. Table 1 
summarizes the TOS function calls, 
and their MSDOS equivalents. You will 
notice that most of the nn implemented 
calls are either for obsolete or obscurt? 
functions. 

In addition there are (at last count) ^0 
TOS or BIOS variables whose memory 
locations are "cast in concrete". These 
include very useful items such as a 
timer tick counter, disk buffer list, 
magic' vectors and configuration infor- 
mation. To examine/modify these 
items a program must first change to 
supervisor mode (TOS function 32), 
then change batk when finished. 

BIOS Too 

There is also a fairly extensive set of 
BIOS (ROM resident) routines, for 
working at a level closer to the hard- 
ware. These functions are accessed in 
the same way as the TOS calls, but 
through TRAP 13 and TRAP 14 in- 
structions. These functions are in no 
way related to the PC; compatibility 
does not extend down to the BIOS 
level. Some hi-lights of the BIOS 
functions are summarized in Table 2. 



TABLE 1 



Now that you know more than you 
probably ever expected to about the ST, let me close with some 
warnings. TOS and GEM are still infected with a few rather 
unpleasant bugs. This is not surprising; even MSDOS went 
through some pretty poor releases before they got it right. The 
people at ATARI seem very anxious to sort these things out (it is, 
after all, probably life or death for them) and get full marks from 
us for co-operation. Many of the bugs that we reported last 
summer and fall were fixed in the two or three updates we have 
since received- We were even able to visit ATARI and talk to the 
developers about some of the problems. Regrettably however, 
some rather nasly bugs have stuck around long enough to get 
into the first set of TOS ROMs, and thereby are assured a place 
in history. 

One such bug allows the creation of a file when another file of 
the same name is already open, resulting in two files with the 
same name. Another prevents the use of disks with a dusier 
size (the number of sectors making up a di^k allocation unit) 
greater than two. This turns out to be a nasty problem with 
networks of STs and PCs, where such disks may already exist. 



•(dec.) FUNCTION 

Terminate curreatprwess 

1 Read sldndard inpni willi echo 

2 Display Lharacter to standard oulpiif 

3 Rpdd character Irom serial port 
A Write character To serial port 

5 Write chdracler to the printer 

6 Direct console I/O - read AND write 

7 Read stcindard inpui wiihout echo 

8 Sdme as 7, but check lor control characters 

9 Print string loMandard ouipuE 

10 Read a line from standard inpul 

1 1 Check standard input lor character reddy 

12 Not implenienied 

13 Not imjflemented 

M Select default disk drive 

15 Not implemented 

1 6 Check standard output ready 

17 Check pnnler ready 

IB Check serial port chdracLer ready 

18 Check serial port character ready 

19 Check serial port output ready 

20 Not iniplemenied 
2! Not implemented 

22 Not implemented 

23 Not implemented 

24 Not implemented 

25 Get current drive number 

26 Set disk (ran^Jer address 

27 Not implemented 

28 Not implemented 

29 thrulil No! implemented 

32 To^le from user to supervisor mode 

33 Not implemented 

34 Not implemented 

35 Not implemented 

36 Not implemented 

37 Not implenienied 

38 Not implemented 

39 Not implemented 

■10 Not implemented 

41 Not implemented 

42 Get current date 

43 Set current date 

44 Gel time 

45 Set time 

46 Not implemented 

47 Get disk transfer address 

48 Get version number 



COMMENTS 



difEeientterniinatinii character 



MSDOS: Clear input buller and do mput 

MSDOS: Flush disk buffers 

TOS: returns more information 

MSDOS: old lileop^'H 

MSDOS: old file close 

MSDOS. old lind file 

MSDOS old find next 

MSDOS: old find next 

MSDOS: old file delete 

MSDOS: old sequential read 

MSDOS old sequential write 

MSDOS: old file create 

MSDOS: old lile rename 

MSDOS neither 

TOS has 16 maximum 

used by lunctlon 78 

MSDOS: get default disk ID 

MSDOS set speeilic disk ID 

MSDOS: neither 

MSDOS: Not implemented 

MSDOS: old random read 

MSDOS: old write 

MSDOS: old get file "ii^e 

MSDOS: old FCB operation 

MSDOS: set interrupt vector 

MSDOS: old and sleazy program exec 

MSDOS: old multiple record read 

MSDOS: old multiple record write 

MSDOS old and sleazy filename parser 

lormatoldaleisdillerent 

formal of date is different 

format different, TOS: poorer resolution 

formal different 
MSDOS. set verify switch 



The most serious known bug imposes a limit on the number of 
sub-directories which may be touched on ail devices Jrom one 
ST boot to the next. By "touched" I mean even passed over 
during directory listings. The limit on the 520ST is 40 sub- 
directories; Jhe 1040 limit is about 15 higher. Once this limit 
has been reached, TOS, tiaving t^xhaustcd a valuable resource, 
is unable io recover, and dies a slow death giving Out of 
memory errors. 

r 

r 

The hypothesized origin oi this bug is rather interesting, and 
actually demonstrates four individual problems. As I men- 
tioned earlier, it appears thai the TOS implemenlors were not 
MSDOS wizards. This showi itself in the workings of the "hnd 
first file" call, function 78. This call is often followed by multiple 
calls to function 79, '1ind next file". To allow tree searching, the 
calls must be recursive; that is, while doing one set of "find 
hies" one may find a directory and branch down into another 
sub-tree, do more and different "find files", and then wish to 
continue the original set. Hence the "find file" calls must 
remember the environment they were working with at each 
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TABLE 1 (cont'd) 



*(dec,) FUNCTION 

49 Terminate process and slay resident 

50 Not implemented 

51 Not implemenTed 

52 Not implemented 

53 Not implemented 

54 Get disk information/ Jree space 

55 Not implemented 

56 Not implemenied 

57 Make directory 

5S Remove a directory 

59 Change current directory 

60 Created new file 

58 Remove a directory 

59 Change current directory 

60 Create a new lile 

61 Open a file 

62 Close a tile 

63 Read from a file 

64 Write lo a file 

65 Delete a file 

66 Seek within a file 

67 Change file attributes (read only etc) 

68 Not implemented 

69 Duplicate a file fiandle 

70 Force a duplicate of a file handle 

7 1 Get current directory 

72 Allocate memory 

73 Free allocated memory 

74 Shrink a memory block 

75 Exec another process 

76 Terminate a process and restart parent 

77 Noi implemented 

78 Findfirsimalchingfile 

79 Find next matching file 

80 Not miplemenTed 
til Nol ifnplemented 

82 Not implemented 

83 Not implemented 

84 Not implemented 

85 Not implemented 

86 Rename a file 

87 Change a file's date and time 



COMMENTS 

MSDOS: neither 
MSDOS control -break check 
MSDOS undocumented: get busy flag 
MSDOS. get interrupt vector 

MSDOS undocumented get/set switch character 
MSDOS: gel country dependent mformation 



ST bug: file is always opened for writmg 



MSDOS: I/O control for devices 



TOS: works differently at root 
MSDOS: allocated in chunks of !6 bytes 

MSDOS: can also grow a block 



MSDOS: get return code. TOS: pari of exec 



MSDOS undocumented: switch processes 
MSDOS undocumented: get current process id 
MSDOS undocumented: get DOS tables 
MSDOS: neither 
MSDOS: get verify state 
MSDOS: neither 

TOS. broken 



''find first". MSDOS buries this infor- 
mation in a user-supplied buffer, put- 
ting the onus on the caller and 
allowing a number ot searches limited 
only by the number of buffers a user 
can afford. When the process making 
these calls terminates, the buffers (be- 
ing part of the process) are freed auto- 
matically. TOS unfortunately keeps 
this necessary information in internal 
buffers, which il takes from a (finite 
sized) small pool it keeps for such pur- 
poses. This is the first problem. When 
the pool is used up, Ihe second bug 
steps in arid kills TOS with the mislead- 
ing out of memory condition. Even this 
might be infrequent enough to be of 
little concern were it not for bugs three 
and four Inexplicably, TOS decides to 
allocate one of these buffers every lime 
it touches a sub-directory, even if it 
doesn't open il! Further, the buffers are 
not given back to the pool after a proc- 
ess terminates. Consequently, TOS 
blows up much more often ihan it 
should. 

Now admittedly, 40 sub-directories is a 
fair lot especially for a floppy disk sys- 
tem. However, for a hard disk system 
or a multiple hard disk network this 
limit is a killer. One pass over our 
office's network mail system, and TOS 
blows up! Real good. 



TABLE 2 



returns IBM scan codes 



13-1 Return input status of character device 

13-2 Return character Irom input device 

1 3-3 Output a character lo a device 

13-4 Read/write sectors on a device 

] 3-5 Get or set iiiterrupL vector 

13-7 Gel disk parameters 

13-8 Get character device output status 

13-9 Check lor disk media change 

13-10 Get a lisiot existing disks 

13-11 Gel/setslalusotshift. alt, control keys 

M-O Initialize mouse handler 

M-2 (Sei the screen's physical base address 

1-1-3 Get the screen's Jogiriil base address 

14-4 Get the screen resoEution 

14-5 Set the preceding 3 parameters 

14-6 Set the colour palelteregislers 

14-7 Change one colour in palette 

]4_8 Read caw floppy device 

14-9 Write raw lloppy device 

]4_I0 Format a track on a lloppy 

14-1 :^ Write a string [n The MIDI port 

14-15 Configure RS232 port 

14-16 Get kt'yboard translation tables 

14-17 Get a random number 

14-20 Dump screen to printer 

14-28 Read or write registers on the sound chip 

1 ■1-32 Submit a program to the sound generator 

14-33 Get or set printer conliguration 

1 4-38 Execute some code in supervisor mode 

14-39 Throwaway EhewindowstulJ trees up 1 90k it TOS m RAM 



The Finish 

1 hope this has served as a useful '^inside" introduction to the 
ST. If you crave additional data, there's lots more where this 
came from. Despite some negative remarks that may have 
appeared, we are all extremely positive about the ST. Many of 
our complaints have already been addressed by the 1040, and 
those remaining are more than offset by the tremendously 
good price of this powerful and flexible box. Besides, fore- 
warned is forearmed. The ST is the logical next choice for those 
looking for more capabilities than their 8-bit home computer 
provides, without having to learn to fly a 747. From our 
perspective it is also a viabte choice for professional business 
and programming people. I think you'll be seeing a lot of ATARI 
from hereon in. 



Jack Cole is Research and Development Project Leader al BMB 
CompuScience in Mihon, Ontario. 
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Commodore 128 
Disk Boot Basics 



Jim Butterfield 
Toronto, Ontario 



You probably know rhat the Commodore 128 has an Autobool 
feature. !f you have a disk in your drive at the time you turn on the 
power you may get a message such as BOOTING. , . lollowing which 
a program may start automatically. 

l^d like to talk about how the BOOT mechanism works, there are a 
surprising number of combinations built into the system. Most users 
have a Bootmaking program which will generate a simple auloboot. 



Methods 

All of the following events happen after the computer has been 
completely initialized. Basic is in place and everything Is running 
normally; but jus! before saying ' READY " , Basic checks for a Boot. 

1. Just after Basic starts up or when the command BOOT is given, the 
computer reads the contents of track 1. sector Irom the disk into 
addresses OBOU to OBFF. Even if the disk doesn't contain a "boot" 
pattern, the information will be there if there's a disk m the drive. You 
could set up your own coding there. 

2. If the first three characters on the sector arc the ASCII characters " 
CBM " , this is a Boot disk. The program will print BOOTING and we 
will follow the steps listed below. Otherwise, the system returns to 
Basic which now says READY. 

3. The next four locations are checked; if they are non-zero, the 
program will read in "boot sectors" Irom track I (and subsequent 
tracks if necessary). The first two locations contain the address where 
the load should start. The third location specilies the bank number for 
the load, and the fourth tells how many blocks are to be loaded. (I 
have not seen this feature used on a boot disk). 

4. Starting at byte 7 (the eighth byte) there may be ASCII text followed 
by a zero byte, or there may be just a :^ero byte. The system prints 
anything it finds before the zero byte; the text, if any, will appear 
behind the word BOOTING on the screen. The message BOOTING . , 
. is now completed with three dots. Whatever is printed need have 
nothing to do with any file name. 

5. Starling behind the last zero (which terminated the BOOTING 
message), there may be ASCII text followed by a zero byte, or there 
may be just a zero byte. If there is any text there, it's taken to be a file 
name. The name is prefixed with " 0: " (for drive 0), and then the 
computer performs a BLOAD of that file from disk. (This feature is not 
used with a disk set up with the AUTOBOOTMAKER program, even 
though such a disk loads and runs a Basic program named by the 
user), - 

6. Behind this second name (if any) there must be machine language. 
It may be nothing more than a hexadecimal 60, the RTS command to 
return to Basic, 



Count the Ways 

Lets run through the different ways we can use these mechanisms to 
get a program into the computer. 

1. Without the CBM pattern, well still load track I , sector 0; if we are 
sure that tTie code is there, we may use it even though no BOOT 
message is seen. 

2. There may be a machine language program entirely within the 
block at track 1 , sector 0, and we want it to run immediately. We might 
follow the CBM pattern with six zero bytes (four for no boot blocks, 
one for no message, one for no load) with the code itself, which would 
start running instantly. 

3. There may be a machine language program entirely within the 
block, but we don't want it to run until called. We could use a pattern 
similar to that described above, except that we would prefix a RTS 
command (hex 60) at the start of our code. That wdy, the system 
would return to Basic at boot lime, and we could call the program with 
a SYS when we needed it. 

It would be better to give the user some help rather than have him or 
her trying to remember what SYS address to use. We could put the SYS 
command onto a function key - see the DOS SHELL detail given 
below (but avoid using BANK 12), Or to make it more simple, we 
could give the SYS address as part of the BOOT name. Here's how it 
would go: suppose our machine language code starts at address S40 
within the block. We'd write the block as follows; 

Start with ASCII CBM {hex 43 42 4D). Follow that with four zeros (no 
boot blocks). Follow that with the ASCII message 'SYS2880" - 2880 
is the decimal equivalent of hex $640 followed by a zero, that would 
be 53 59 53 20 32 38 38 30 00. Now another zero to signal that no 
program should be loaded. Now the "immediate" machine language 
program; just the RTS (hex 60). When this disk boots, you will see the 
command BOOTINGSYS2880. . . which will tell the user what to do. 

4, You could have a massive machine language program arranged on 
track 1 (sectors 1 , 2, 3, and so on). It could even be big enough to need 
space of lracks2 or 3, The four bytes right behind the CBM will tell the 
system to do this load. 

5, In addition to all the above: You could have the computer do a 
BLOAD of any program in the disk's directory. Just put the name of 
the program file before the last zero. This will not cause the program 
to run, but you can arrange to do that with the machine language code 
that follows- 

6, On top of all the other features you must now write some machine 
language, even if it's only the RTS to terminate the boot and return to 
Basic. In Ibis machine language you may do anything you like, 
including loading files, printing messages, or whatever you think is 
appropriate. 
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Some Examples 

1 have analyzed the conlenls of three C128 bool disks; what ihey 
contain may be interesting for study (and plagiarism) purposes. 

First, ttieres a disk generated by use of the AUTOBOOTMAKER 
program. Note that the program does not use bool blocks, and 
(surprisingly) doesn't use the load-a-file feature. It does the whole job 
in the machine language section, setting up the Basic command, RUN 
" FILENAME " and then asking Basic to execute this command. 

Secondly, there's the CP/M boot disk. Again, no boot blocks, no 
program load; everything is done in machine language. The program 
consists of some simple cosmetic setups and then a jump to RAM at 
address FFDO. The code there will make the switch to CP/M, By the 
way, the code at FFDO in RAM did not come from the Kernal . . , 
technical types might like to puzzle out exactly where it did come 
from. 

Thirdly, the DOS SHELL. No boot block.s. Program DOSSHELL is 
loaded; the BOOTING message prints a name which is slightly 
different from the file name. The machine language pari moves Basic 
so that it starts at S5A01 (ughf); function key Fl is redefined, and an 
information message is printed. 

BANK 12, used by the DOS SHELL program, is not a good bank 
configuration for you to use. It makes RAM available for addresses 
up to S7FFF rather than its normal limit of S3FFK You'd be better off 
using BANK 15, allowing the machine language program itself to set 
up more memory space if needed (the program would probably do 
this with IDA 'SOE . . . STA SFFOO), 

The contents of track 1, sector is annotated in the three examples. 
With a hule study, you loo will be able to customize your own boot 
disk.s. 

You can use a "disk doctor" type of program to write that track and 
sector, or you can write your own with a U2 type of disk command. 
Either way . , . have fun. 

Disk Created wtth AUTO BOOTMAKER 

The disk was created to load and run a programed called VANCOU- 
VER. 



Bytes 00 to 02 
Bytes 03 to 06 
Bytes 07 to OF 



"CBM" 

all zerOn no boot blocks. 

"VANCOUVER"; name to be displayed in BOOT 

message 
Byte 10 :binaryzero(endof display name) 

Byte 1 1 : biEiary zero (no load name) 

Bytes 12 to 18: machine language code: 

A2 18 LDX ni8 

AO OB LDY "SOB 

4C AS AF .IMP SAFA5 
. . .which forces Basic to starting running code starting at SOBl 9 {and 
that's the code following, of course). 

Bytes 19 to 25: 'tokenized Basic line, reading: 

RUN "VANCOUVER 

CP/M Disk 

The CP/M track I , sector starts up this way: 



BylesOOto02: ^CBM' 

Bytes 03 to 06: 00 00 00 00 no boot blocks 

Byte 07 : 00, no name for the BOOTING message 

Byte 08 : 00, no program name to load 

Bytes 09 to 23: machine language code: 

78 SEl 

20 84 FF JSR $FF84 



A9 3E 


LDA "SSE 


8DO0 FF 


STA $FFOO (sort of Bank 0) 


A9 03 


LDA "SOS 


8D EE FF 


STA $FFEE 


A9 08 


LDA -$08 


8D EF FF 


STA SFFEF 


A9 00 


LDA -SOD 


8D FO FF 


STA SFFFO 


40 DO FF 


JMP SFFDO 



DOS SHELL Disk 

The boot block starts up like this: 

Bytes 00 to 02: "CBM" 

Bytes 03 to 06: 00 00 00 00 no boot blocks 
Bytes 07 to 1 5: name, CI 28 DOS SHELL, followed by 
Bytes 16 to 1 F: filename, DOS SHELL, followed by 
Bytes 20 lo 73: machine language code: 
(Set up key Fl): 



A9 74 


LDA "$74 


85 2D 


STA $2D 


A9 OB 


LDA -'SOB 


85 2E 


STA $2E 


A9 OF 


LDA 'tOF 


85 2F 


STA S2F 


A9 2D 


LDA *$2D 


A2 01 


LDX "$01 


AO 12 


LDY ni2 



20 21 CO JSR $C02I 
{A call lo FF65 would be more standard) 
(Set start-of-Basic to $5AO0): 
(The three zeros): 

AO 03 LDY -$03 

A9 00 LDA -SOO 

(0B39)99 00 5A STA $5A00,Y 
88 DEY 

10 FA BPL 0B39 

(Basic Start and End pointers): 



A9 01 

85 2D 

A9 5A 

85 2E 

A2 03 

8E 10 12 

8D 11 12 
(Set screen cursor): 

18 

A2 05 

AO ID 

20 FO FF 
(Print message): 



LDA -$01 
STA S2D 
LDA *$5A 
STA $2E 
LDX *S03 
STX $1210 
STA $1211 

CLO 

LDX '$05 
LDY -$1D 
JSR $FFF0 

JSR $FF7D 



20 7D FF 

(0B5A) message (DOS SHELL ON, etc.) 
(0B73)6O RTS 

Bytes 74 to 86: Function key definition: 

BANK12:SYS6656 + CHR${13) 
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New Loops: 

The Commodore 128 

Basic Stack 



Jim Butterfield 
Toronto, Ontario 



Some programmers have a knack forgetting themselves tangled up in code. . , 



Even if youVe just a Basic person, youVe likely heard about the 
'■stack''. Thai's the place where ihe computer leaves temporary 
notes for itself. . , how to get back from a subroutine or 
interrupt, plus other small bits of data. 

From the Basic end, the stack holds two items of interest: 
information on live FOR/NEXT loops, and information on 
active subroutines. Whenever your program commands FOR. 
, . or GOSUB- . . the computer notes the command location and 
the current line number. That's so it will know where to come 
back to when it encounters a NEXT or RETURN as the case may 
be, and so it can reinstate the line number in case an error 
notice is needed. 

That's all thai is noted for a GOSUB, since all the program 
needs to know is how to RETURN. The FOR command puts 
away lots more data, however. It gives the variable identity, the 
step value, the loop limit, and whether the loop is counting up 
or down (say, with a STEP -1 ). That way, NEXT can modify the 
loop variable by the right amount and then lest to see whether 
to go around the loop again. 

All this adds up to; seven items on the stack to log a GOSUB, 
and eighteen items to record a FOR. These items are reclaimed 
later - at least they should be, RETURN wipes out the GOSUB 
entry, and NEXT will kill the FOR entry when the loop has 
been exercised the proper number of times. 

On earlier Commodore machines, this stuff went onto the 
''hardware" stack. Thai's the area from 506 going down to 320 
(hex $01FA down to $0140). or about 186 locations. That 
means that you can nest about ten FOR/NEXT loops, or you 
can go about 24 subroutines deep. Try to go further and you'll 
get an 70UT0FMEM0RY error, which is puzzling to beginners 
since there seems to be lots of memory left. 



Most programmers get 70UT0FMEM0RY because of sloppy 
subroutine handling. Within a subroutine, they forget to RE- 
TURN and instead leap directly back into the main code with a 
GOTO statement. The used part of the stack never gets re- 
stored, and eventually the program runs out of space. The 
fastest demonstration of this is the one-line program, 100 
GOSUB 100, which will bomb faster than you can say EBCDIC. 



TheC128 

The 128 has a much bii^ger stack - over 500 bytes - and it's 
reserved purely for Basic activity. This stack logs not only FOR 
(eighteen bytes per item) and GOSUB (five bytes per item) but 
also the new command LOOP (five bytes per item). Even 
though this slack is much bigger, you can slill fill it up quickly 
with foolish programming. 

The new stack is implemented in software, not hardware. It's 
located in bank in the area from hexadecimal 09FE down to 
0800, There's a pointer stored at address 125 and 126 (hex 7D 
and 7E) which indicates the last location in use. The stack fills 
from the top down; if the slack is empty, the pointer will say 
$09FF, if it's nearly full the pointer will have dropped to the low 
800's. 

Here's a detailed rundown of what goes on the Basic stack for 
each type of entry: 

FOR - hex $81 to indicate a FOR entry; 



loop variable address 
increment floating value 
increment sign, 01 or FF 
variable limit, floating 
line number 
return address 



(two bytes); 
(five bytes); 
[ow^ byte) 
(five bytes); 
(two bytes); 
(two bytes). 
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GOSUB - hex $8D lo indicate a GOSUB entry; 
line number (two bytes}; 

return address (two bytes). 

DO - hex $EB to indicate a DO entiy; 
line number (two bytes); 

return address (two bytes). 



Mechanics 

It's useful lo get a feeling for the workings of these. When a 
Basic program executes a FOR, GOSUB, or DO, the appropriate 
entry is placed on the Basic stack. Extras: FOR searches to see if 
the stack contains a previous FOR entry with the same variable 
name; if so, it strips the stack back lo that point and then makes 
the entry, . . but it can only look through FOR entries- Exam- 
pie: a sequence such as FORJ. . . GOSUB. . . FORJ would work 
badly; the new FORJ wouldn't catch the previous FORJ that 
had been started outside the subroutine. 

DO may also have an extra: H WHILE or UNTIL is part of this 
statement, Basic will check and if necessary skip ahead to the 
appropriate LOOP statement. Note that although a FOR/NEXT 
muse be executed at least once, a DO/LOOP may have its 
contents skipped entirely - a straight hop from the DO to the 
LOOP with everything in between Ignored. 

Now we come to the other end of these constructs. A NEXT will 
cause all earlier FOR entries to be searched for a matching 
variable name, atThough the computer will not search across a 
GOSUB or DO entry. When the right entry is found, ihe 
variable is ''stepped" and tested for within range. If it's in range, 
Basic goes back; if not, the stack entiy is scrapped and the 
program proceeds. 

A RETURN will cause a scan of the entire stack. . . the most 
recent GOSUB entry found will be honoured and the stack 
stripped back to that point. Note that if FOR loops or DO 
structures had been opened within the subroutine, they will be 
scrapped upon RETURN. 

A LOOP action depends on whether or not the command is 
followed by a WHILE or UNTIL. Assuming the LOOP statement 
is found to be active, it will scan the entire slack. The most 
recent DO entry found will be honoured and the stack slripped 
back lo that point. Note that if FOR loops or subroutines had 
been opened within the DO structure, they will be scrapped 
upon LOOP, 

Sample Program 

Let^s write a CI 28 program to allow names to be entered, sorted 
and listed. We'll look at the stack, commenting on some of the 
workings. Here's the program: 



PROGRAM: LOOPER 

100DIMN$(100) 

110 DO 

120 PRINT 

130 PRINT M -ENTER NAMES" 

140 PRINT"2-L1ST NAMES" 

150 PRINT -3-QUlT" 

160 PRINT 

170 INPUT 'YOUR CHOICE";C 

180 ON C GOSUB 200.300,400 

190 GOTO 170 

200 INPUT "NAME";X$ 

210J=N 

220 DO WHILE J>0 

230 K = J-1 

240 IFX$>N$(K)THENEXiT 

250 N$(J} = N${K) 
260 J = K 
270 LOOP 
280 N = N + 1 
290N$(J) = X$ 
300FORJ = 0TON-1 
310 PRINT N$(J) 
320 NEXT J 
330 RETURN 
400 END 
500 LOOP 

Enter the program; you might like to play with it, entering 
names and seeing them come out in alphabetic order. In a 
moment, we'll change it in order lo allow ourselves lo look 
around. 

You should know thai the array N$(..) uses element zero as the 
first item. Thus, if N (the number of items) equals 3 the array 
goes from N$(0) to N$(2). 

The DO . . . LOOP that extends from lines 220 to 270 is 
different from the comparable FOR . . - NEXT, and usefully so. 
Here's why. As we put each item into the table, we compare it 
with the existing items. But the first time through, there's 
nothing in the table to compare with. II I coded 

FORJ-N-1 TOO STEP -1 

, . .rd be stuck on the first item (where N equals 0), since a 
FOR/NEXT insists on exercising it^ contents at least once. No 
such problem with the DO/LOOP, which skips over the inter- 
vening code when the first item is encountered. 

We re about to look into the mechanics a hltie. U you don't like 
tinkering with the works, or '\\ you feel threatened by hexadeci- 
mal numbers, you might prefer to skip this section. 
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We want to analyze Ihe stack, just to show that it^s there and 
can be viewed whenever you like. Lei's put a STOP command 
in at line 305: 

305 STOP 

RUN the program once aRain; call option I and enter any 
name. When the program stops, command MONITOR. 

Now well examine the Basic stack pointer. Command M7D7E 
and look at the line thai results- The first two bytes should be 
E3 09. meaning that the slack pointer is down to 09E3. Good - 
we'll look at the slack with command M9E39FK 

Let's review what we know of the program's '^slate"\ The first 
thing that happened is that line 110 executed a DO. When we 
selected option I, line 180 performed a GOSUB. Line 220 
performed another DO, but the LOOP at line 270 cancelled il. 
The next thing that happened, just before the STOP at 305. was 
thai a FOR loop was opened by line 300. 

So we have a FOR entry inside a GOSUB entry inside a DO 
entry. Let's see if we can iind them on the stack. 

Address 9E3 contains a value of 81 - that's the FOR flag. You 
can see that the variable is at address 0410 (variables are kept 
in Bank 1 ). Floating point numbers are hard to read, even if you 
know the secret, but beyond them we can see 2C 01 for line 
number 01 2C - that's hex for 300. 

Eighteen locations along, at 9F5. we see the 8D flag signalling a 
GOSUB entry. Again, we could read the line number entry as 
hex 00B4 or 180. Five more locations along, at 9FA, we see EB 
for the LOOP item, with line number 6E for line 110. 

It's all there, and you can look at it any time you get fuddled 
over loops. Now return to Basic with command X. and then 
delete line 305. 



The Untangler 

Some programmers have a knack for gelling themselves tan- 
gled up in code, i get calls thai sound like this: 'Tm seven 
subroutines deep, and now I've found a situation where I want 
to give up and return to the menu. How do 1 get out?" 

The proper answer is; you shouid never have gotten yourself 
into that mess. Start over, use variable flags to give return 
signals, and next time do it right. 

In the past. I've taken pity on some of these unfortunates by 
digging out a SYS or suggesting a brief machine language 
routine to set things to rights. At least these people have 
learned (sometimes the hard way) that you can't iusi go back to 



the menu with a GOTO or you'll leave a messy stack and 
eventually gel an OUTOFMEMORY message. 

But with the 128, there's an easier way out. If you have only 
one DO/LOOP active, you can clean out all subroutine and 
FOR/NEXT entries just by going to the LOOP. 

Examine the sample program. Note that a DO appears very 
early in the coding, and that the corresponding LOOP can 
never be reached- Here's the trick: if we ever do get to that 
LOOP - assuming no other DO's are open - we'll immediately 
be transported back lo the menu and the slack will be neatly 
trimmed. It^s a !ittle like the magic word FROBOZZ that trans- 
ports you back lo the vault. 

Here's a simple example. Suppose in the above program, we've 
picked option 1 and are asked lo enter a name. At this point, we 
say something like, "Gosh ... I don't really want to enter a 
name after all". It would be nice to abort back to the menu. 

Suppose we say, ''OK, if the user types an asterisk character 
instead of a name we'll go back to the menu". We might try a 
new line at 205 which says something like: 

IFX$="''" GOTO 120 

But if we do so. we II eventually have problems, since we have 
never cleared away the subroutine call from line 180. 

The solution is simple. Enter line 205 as: 

2051FX$=^»' GOTO 500 

When an asterisk is entered, we'll go to the LOOP statement at 
line 500. This will search for the last corresponding DO, finding 
it at line 110. The Basic stack will be trimmed back to that 
point, in this case removing the subroutine entry, and the 
program will resume by printing the menu. 

It's a simple example, and doesn't trim much from the stack. 
But once you understand the principle, you can use il more 
generally. 
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At Long Last! - The Code To Do It! 



The 1541 Disk Operating System {DOS} has a number of bugs or 
idiosynrrasies, the Save- with -Rep I ace command (SAVE@) bug in 
particular, which have plagued Commodore users for a number of 
years. This article presents a number of palcties to the 1541 DOS 
which lix the SAVE® bug and a few other related bujjs under most 
conditions. These changes have been programmed into EPROMS and 

tested successfully in two 1541 drives 

The SAVE® bug has been a continuing subject of controversy in 
numerous issues of The Transactor Tlie author recently published a 
two part explanation of $AVE@ in COMPUTE! October and Novem- 
ber 19B5, "Save With Replace: Debugged At Last" including a pro- 
gram which unequivocally demonstrated the bull's existence. A 
review of the reasons for the bug will be given - for a full review the 
reader should refer to the aforementioned articles. 

As part of our testing of 1541 DOS for the SAVE® bug, we have 
reviewed the 1541 sourcecode, ft is documented in two good sources. 
A complete disassembly of one version of DOS V2.6 is presented with 
commentsin'TheAnatomyof IhelS^l", by L Englisch, et al, 1984 
from Abacus Software. A full analysis of the DOS V2.6 routines, 
specified by name and address, is given in "Inside Commodore DOS", 
by R, Immers and G. Neufeld, 1984 from Datamost. We will use the 
DOS subroutine names and addresses listed in "Inside Commodore 
DOS" since most people who will read this will have a copy of the 
book. 

Our testing was done by creating a master disk with three directory 
sectors of files. All test sequences were done starting with a fresh copy 
of the master disk and with the drive in a completely reset stale. The 
disk drive memory and the disk BAM, directory, and sector data were 
examined after each SAVE® command using our Peek A Byte 64 disk 
and memory utility (available from Quantum Software, P.O. Box 
12716, Lake Park, FL 33403, 305-840^0249). Internal pointers were 
noted before and after each load or SAVE® with the drive number 
specihed only in the SAVE@, These tests were repeated with the drive 
number always specified. Tests were also performed using new 
EPROMS which were burned for the 1541. This was done to lest 
possible patches to the DOS and to help diagnose the drive operation. 

SAVE® Bug Explanation 

DOS V2.6 has 5 internal buffers, with buffers to 4 starting at memory 
pages $300, $400, S500, $600, and $700, respectively. DOS assigns 
channels and buffers to the BAM, directory sector, and file sectors 
being read or written. Normally DOS assigns two read or two write 
channels and uses only 3 of the 5 buffers The SAVE® command, 
however, requires ail 5 buffers - two read, two write, and the BAM If 
the DOS can't find a free buffer, then the DOS tries to steal an 
assigned, but inactive buffer. If the BAM is stolen, SAVE® may fail. 



Not .specifying the drive number can cause a buffer to be stolen. When 
the directory is accessed, AUTOl {$C63D) reads the BAM of the disk in 
the specified drive, and also tries to initialize drive 1 if no drive was 
specified. Usually buffer 3 ($600) is allocated for the phantom drive 1 
(not present in a 1541 drive) BAM andaBl SEEK command is issued 
to the disk controller. An internal DRIVE NOT READY error occurs in 
the disk controller and puts the error code *SOF in the job queue at 
$03. This error code is then trapped by AUTOl and not reported 
outside the disk drive. This leaves buffer 3 allocated but inactive. 

Since the SAVE® comriiand requires all 5 buffers and only 4 are now 
available. DOS steals an inactive buffer by calling STLBUF ($D339). 
STLBUF can be called several limes during a SAVE® command 
causing the BAM and directory sectors to be reassigned to different 
buffers during a single SAVE®. STLBUF ($D339) should not steal the 
drive BAM, but should instead steal back the unused buffer incor- 
rectly assigned to drive 1 . It never steals the drive 1 BAM buffer *3 at 
$600 because STLBUF cannot take a buffer if the buffer had a drive 
error occur. 

SAVE® works most of the lime because after the BAM is stolen, it is 
read back in when needed and updated using the BAM images. A 
BAM image for each of two tracks is stored at BAM (S2A1 - $2B0). 
Each time a new block is allocated by WUSED {$EF90), it is in the 
BAM image. When a new track is tested for free sectors, the DOS 
checks if it has a BAM image for it. ff not, it calls SWAP (SFOSB) which 
first updates the BAM with tlie BAM image from the second to last 
track, copies the new track's BAM map into the BAM image, and then 
zeros that track in the BAM. Only TWO tracks can be updated, 
however, since there are only two images. If more than two tracks 
have been accessed by SAVE®, the BAM may NOT be correctly 
updated. A track may either be updated correctly, be left unchansjed 
or may be fully allocated, depending on when the BAM was stolen. 

Possible DOS ROM Modifications 

We have tried several modifications to the DOS by programing 
EPROMS. These included: 

1) STLBUF ($D339) should be modihcd to allow stealing a buffer with 
a DRIVE NOT READY error. It could also be prevented from 
stealing the drive BAM buffer, but this may be required and so this 
second patch was not done. 

2) A drive could be forced by modifying ONEDRV ($C312) and 
SETDRV($C33C) to set drive rather than setting the default drive. 
Alternately, the DOS could be prevented from ever switching to 
drive 1. We tried modifying TOGDRV ($C38F) so only drive is 
allowed and this patch works. Other routines must be modified to 
keep from searching the directory twice. However, these DOS 
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patches can'l be done on a duat drive and so were not imple- 
rnenled, 

3) More drive memory and buffers should be added. We added 8K of 
memory to our drive, but a fiardware change is beyond mosi 
individuals. 

Recommended Modifications 

We made a number of modifications which correct a number of bugs 
in the 1541 V2.6 DOS release 5. (The release number of the SEOOO 
ROM is 901229-05. The SCOOO ROf^ was never changed and is 
325302-01). The addresses shown assume that the ROMs were read 
into the computer memory from $2000 - tSFFF (ROM addresses 
$C000 - $DFFF and $E0O0 - SFFFF) in preparation for burning new 
EPROMs. All of the extensive patch code starts at $C010 tor conven- 
ience. 

The first patch replaces the incorrect use of zero page indexed 
addressing with absolute addressing for the NODRV (IFF and $100) 
flags which indicate whether a drive is present. Since $KF,X address- 
ing ' Vraps around" to $00, the flag for no drive 1 was stored in the job 
queue and caused the 74, DRIVE NOT READY error (which occurred 
all too often). It only indirectly affected the SAVE® bug. 



2010 a6 7t 
2012 bd ff 

2015 60 

2016 98 

2017 9d ff 
201a 60 
201b a9 00 
201 d fO f8 
201 f a9 00 
2021 95 1C 
2023 fO t2 



Idx $7f DRVNUM normally 

00 Ida $00ff,x get NODRV flag 

rts 

tya 
00 sta $00ff,x store NODRV flag 

rls 

Ida #$00 

beq $2017 

Ida #$00 set WPSW write 

sta Slc.x protect status to 

beq $2017 



The next patch corrects a bug which put the value *S02 at $ 1 97 in the 
drive memory. This bug can cause problems with programs which 
download routines into the disk drive (especially fast loading pro- 
grams). The calling routine prevents y from exceeding "SOC - a value 
ofy = 'SFEcauses$197 to be addressed. 



2025 Oa 

2026 aS 

2027 a9 02 
2029 99 99 00 
202c 60 



asl 

lay 

Ida #$02 

sta $0099, y 

rts 



called from SDCBE and $DCCB 
limes 2 



202d c9 Of 
202f dO 03 
2031 4c 73 d3 
2034 a6 6f 
2036 eO 07 
2038 4c 6t d3 



cmp #$0f 
bne $2034 
imp $d373 
Idx $6f 
cpx #$07 
jmp $d36t 



compare error code with #$0f 

steal if equal 
else 

check next cfiannel 



A possible SAVE® related bug is in the serial bus communication 
routines. Occasionally the ATN (attention) interrupt flag bit of $180D 
INTERRUPT FLAG REGISTER is not cleared by the TSTATN routine 
($EA59). Addressing S 1 80F (or $ 1 80 1 ) clears the flag bit. 

Gerry Neufeld's theory of a serial bus ATN related SAVE® bug is 
presented In INFO issue '9 Dec 85 - Jan 86 by the magazine's editors. 



Briefly, it is claimed that the drive listens to the NMI (non-maskable 
interrupt) line from the computer before the drive is done updating 
the BAM and directory. If a new command is sent before SAVE@ is 
completed, the BAM or directory may not be updated correctly since 
the new command will be executed. The article incorrectly refers to 
ATN signal as an NMI line - the ATN signal can be interrupt disabled - 
and the technical details or proof of the theory are not given. I have 
not tested his theory either, however, the ATN bug patch given below 
should prevent the drive from prematurely listening to the serial bus 
from the computer. 



203b ad Of 18 
203e 4c 5b e8 
2041 ad Of 18 
2044 4c d7 eS 



Ida $160f 
jmp $e85b 
Ida $l80f 
jmp $e8d7 



clear ATN interrupt flag 
clear ATN interrupt flag 



The following routine patches the interrupt handling routine so that a 
user supplied routine stored in the drive RAM will intercept every 
interrupt, whether caused by the serial bus or by the internal timer. As 
written it requires that extra RAM be installed in the drive at $A000 - 
$BFFF. (A memory expansion kit and instructions are available from 
CSM Software, Inc., P.O. Box 563, Crown Point, IN 46307, 219-663- 
4335). The routine can be used to investigate interrupt driven disk 
routines including the SAVE® bug. 



2047 
204a 
204d 
2050 
2052 
2055 
2057 
205a 
205d 
205e 



ad fa ff 

ac f1 ff 

cd 00 aO 
dO 08 

cc 01 aO 
dO 03 

20 5e cO 

ad Od 18 

60 

6c 02 aO 



#$67 pattern to matcfi 

#$ff 

must be #$67 



Ids $me 
Idy Sffff 
crnp$aOOO 
bne $205a 
cpy $a001 
bne $205a 
jsr $c05e 
Ida $180d 

rts 

jmp ($a002) specified in $A0 02 and $A00 3 



must be #$ff 

skip routine if pattern wrong 

jump to subroutine 



The following patches are stiort and are explained in the comments, 

21 b3 ea nop 

21b4 20 lb cO jsr $c01b store #$00 in NODRV 



2661 20 16 cO 
2664 dO 03 
2666 20 42 dO 
2669 a6 7f 
266b 4c 12 cO 



jsr $c016 

bne $2669 

jsr $d042 

Idx $7f 

imp Sc012 



store A in NODRV 



load .A with NODRV 



3021 20 45 e6 jsr $e645 call CMDER2 instead 



STLBUF ($0339) must be allowed to steal a buffer with an '%0V error 3071 
{DRIVE NOT READY) - the following patch does this. 3072 



ea 
20 



nop 



If cO isr $c01t initialize WPSV/ and NODRV 



336b 4c 2d cO 
336e ea 



)mp $c02d check for #$0F error code 
nop 



3cba 

3Gbc 

3cbe 

3cc1 

3cc3 

3cc5 

3cc7 

3cc9 

3ccb 



C9 07 
bO 03 
20 25 cO 
b5 ae 
09 80 
95 ae 
c9 07 
bO 03 
20 25 cO 



cmp #$07 
bcs $3cc1 
isr $c025 
Ida $ae,x 
ora #$80 
sta $ae,x 
cmp #$07 
bcs $3cce 
jsr $c025 



be sure A < #$07 



store #S02 in $0099,Y 



besure,A<#$07 



store#$02in$0099,Y 



:45b7 dO 41 53 20 44 Ai 53 20 pas dos - author's ID 
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4a68 4c 3b cO jmp $c03b TSTATN patches 
4a6b 4c 41 cO imp $c041 



4ae4 ea 


nop 


e iminate ROM 


4ae5 ea 


nop 


checksum routine 


4ae6 eO cO 


cpx #$cO 




4ae8 ea 


nop 




4ae9 ea 


nop 





4c04 4c 3b cO jmp $c03b TSTATN pale 



h 



5017 ea 

5018 20 10 cO 
501b fO 05 
501 d a9 74 
501 f 20 45 e6 



nop 

jsr $c010 
beq $5022 
Ida H74 
jsr $e645 



gel NODRV 



call CMDER2 instead 



5e6c 20 47 cO jsr $c047 interrupt routine patch 

The following list summarizes the memoij' locations of all the 
changes. 



2010 
201a 
2024 
202e 
2038 
2042 
204c 
2056 
2060 
266d 
3cba 
3cca 
4a6d 
501a 



2011 

201b 

2025 

202f 

2039 

2043 

204d 

2057 

21b3 

3022 

3cbb 

3ccb 

4ae4 

5020 



2012 
201c 
2026 
2030 
203a 
2044 
204e 
2058 
21b4 
3071 
3Gbc 
3gcc 
4ae5 
5e6c 



2013 

201 d 

2027 

2031 

203 b 

2045 

204f 

2059 

21 b5 

3072 

3cbd 

3ccd 

4ae8 

5e6d 



2014 
201 e 
2028 
2032 
203c 
2046 
2050 
205a 
21 b6 
3073 
3cbe 
45b7 
4ae9 
5e6e 



2015 

201 1 

2029 

2033 

203d 

2047 

2051 

205b 

2661 

3074 

3cbf 

45b8 

4c05 



2016 
2020 
202a 
2034 
203e 
2048 
2052 
205c 
2662 
336b 
3cc0 
45b9 
4c06 



2017 

2021 

202 b 

2035 

203f 

2049 

2053 

205d 

2663 

336c 

3cc7 

4a69 
5017 



2018 
2022 
202c 
2036 
2040 
204a 
2054 
205e 
266b 
336d 
3cc8 
4a6a 
5018 



2019 

2023 

202d 

2037 

2041 

204b 

2055 

205t 

266c 

336e 

3cc9 

4a6c 

5019 



Burning New EPROMs 

A full discussion of burning RPROMs is beyond the scope of Ihis 
article. Two good sources of information and EPROM hardware are 
CSM Software, Inc. and Iheir EPROM Programmers Handbook, or 
Jason-Ranheim Company (580 ParrotI Street, San Jose, CA, 95112). 
The 1541 drive ROMs are not always in sockets. Obtain professional 
help if desoldering of the ROMs is required ^ it is not for beginners. 
Two 276-1 ROMs and Iwo 28 pin lo 24 pin adapters will be required. If 
the ROMs are easily removable, they should be read with the EPROM 
programmer into memory starting &\ $2000 for the SCOOO ROM and al 
$4000 for the $E000 ROM so that they correspond to the addresses 
given in this article. The patches may be made with any machine 
language monitor program, either in mini-assembler or in HEX. 



Editor's Notes 

Well it's about time I got to write the following: Thank you Mr. Phil 
Slaymaker, not only for the article, but for taking the time to eliminate 
the longest running, unsolved bug mystery. Your laborious research 
will be appreciated world-wide, and so it should. I hereby nominate 
Phillip A, Slaymaker for a spot in the Commodore Hall of Fame. 
Anyone second it? 

However. . . , there's only one slight problem, I still contend that the 
SAVE® bug was first reported before the 1541 was built. The 4040 
was the fir.st carrier of this plague, but since these beasts are fast 



becoming dinosaurs, and the fact that we can't seem to force out a 
demonstration of the hap, I must officially surrender this battle until 
such time that both necessity and solid evidence can be supplied lo 
once again open the file. Therefore, as they say, "the case rests"- 

For those who wish to burn chips with these patches, there are two 
approaches. The first, as suggested in the article, is with the popular 
2764 EPROf^s. The 28 to 24 pin adapters are also available from CSM, 
but for the so inclined we've supplied assembly instructions below. 
Unfortunately, with the adpaler in place, chances are the top of the 
1541 case will not fit back on. Although this "blessing in disguise" 
keeps the drive cooler, certain situations may warrant. . . 

The second, if money is no object, is with Motorola's MCMG8764 
EPROMs which are pin-for-pin compatible with the Commodore 
ROMs. You'll need two, and they're about $16,00 a piece (available 
from Jameco among others). 

Commodore is well aware of Mr, Slaymaker's findings, and word is 
that new 1571s will soon be equipped with Revision 4 ROMs that fix 
these bugs (currently all 1 57 1 s house Revision 3 ROMs). An update kit 
for the 1541 is NOTcurrently under consideration, but we'll keep you 
posted if we hear otherwise. 



2764 (28 pin) TO 2364 (24 pin) Adapter 



2364 



2764 



DO 
Dl 

D2 
D3 

D5 
D6 
D7 

AO 

Al 

A2 

A3 

AA 

AS 

A6 

A7 

AS 

A9 

A10 

All 

A13 

(5 
Vcc 



G^D 



!1 



10 



12 



13 



13 



15 



L4 



16 



15 



17 



16 



18 



17 



19 



S 



in 



2i 



25 



22 



24 



19 



21 



18 



23 



2 



20 



22 



24 



28 



27 



12 



M 



2(1 



NC 



2G 



DO 

Dl 
D2 

m 

Dl 

D5 
D6 
D7 

AO 
A] 
A2 

a:^ 

Al 

AS 

AS 

A7 

A8 

A9 

AlO 

All 

AI2 

G 
^W 

PGM 

GND 
E 

NC 



Use a 28 pin WW socket and a 24 pin ribbon cable header (male). 
On the 28 pin dip, cut down pins I. 2, 20, 23, 26, 27, and 28 lo 
aboul 3/8 " . Using wire wrap, short pins 1, 27, and 28. Conned pin 
27 to pin 24 of the cable header, pin 23 to pin 18, pin 20 to pin 12, 
and pin 2 to pin 21. The long pins will plug directly into the cable 
headersuch that pin3ofthe28pin WWgoestopin I of the 24 pin 
header (pin 4 to pin 2, 5 lo 3, etc, 25 to 23, 26 lo 24). 
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FORMAT TRACK 36 



David A. Hook 
Barrie, Ontario 



© 1986 David A, Hook 



, . Jhe appeal of such a program? In my case, 

I wished to perform on elementary disk protection scheme. . . 



Michael Mossman's article (1541 RAM Expander) in Transactor 
Vol, 6, Issue 5 really caughl my fancy. He described how to a(5d 
a 3K VIC RAM cartridge to the 1541 drive, thereby expanding 
that devices capability lo store programs for direct execution 
within the disk drive. 

He also provided a couple of example programs: one demon- 
strated how to format extra tracks on a diskette, beyond the 
normal 35 provided by Commodore's DOS (which is stored in 
ROM, of course). The extra RAM allowed him to copy the disk 
ROM code, substituting his modifications. By executing this 
code directly (from its new RAM location), the new format 
routine could generate these extra tracks. (Mr. Mossman indi- 
cated 38 tracks would be formatted, however only 37 are 
actually done). Nonetheless, the idea is fascinating. 

With my acknowledged clumsiness with a soldering iron, and 
an expensive disk drive at stake, I sought an alternate to the 
construction proiecl. Armed with the two 1541 books I re- 
viewed previously (Ref 1. 2), the task was completed success- 
fully. 

j used the normal disk formatting routine to set things up. Then 
a machine language program goes into disk RAM buffer *3. 
Perform a seek operation to Track 35, then execute the pro- 
gram from disk RAM. Much of the code used by Mr. Mossman 
comes from the ^541 ROM— 752 bytes of the 3K extra RAM 
was consumed, (n my case, I needed to do everything in the 
minimum space of an unmodified 1541— preferably less than 
256 bytes (or one disk buffer^s worth). The Immcrs/Neufeld 
book was invaluable, and my program borrows from a couple 
of their creations. 

Be very careful with the values in the DATA statements. By 
programming the Floppy Disk Controller (FDC) directly, you 
are bypassing all the checks and safeguards that Commodore 
put in there. H you tell the drive head to go to TracklOO, it will 
happily try to oblige. Immers & Neufeld speak with experience 
in describing the need to disassemble the drive to effect 
adjustments when this happens. Needless to say, neither I nor 
the Transactor can accept any liability for damage wrought by 



use of these routines, but they have been checked on two 
different drives. 

Well what was the appeal of such a program? In my case, I 
wished to perform an elementary disk protection scheme, 
without bumping the drive head. By formatting a disk (with 36 
tracks) using one ID sequence then reformatting (normally) 
with a different ID. I had its foundation. The main program to 
be protected included a seek routine to Track36 which picked 
up the special ID and used it as a key variable in the program. 
Since the main program was compiled, this was not very 
visible. When the program could not get the special ID, it 
caused wrong answers to be generated. As the calculations 
were fairly complex, these wrong answers were not obvious-- a 
nasty trick to use in a financial type program! 

For machine language fans, the PAL source code has been 
provided. 

References: 

1, Inside Commodore DOS by Richard Immers and Gerald 
Neufeld. Datamost published this originally (1983). Now 
published by Brady Communications Company, c/o Pren- 
tice Hall, W. Nyack, NY 10994. 

2, The Anatomy of the 1541 Disk Drive by Lothar Englisch and 
Norbert Szczepanowski. Abacus Software, Grand Rapids, Ml 
49510. 



Format > 35: BASIC Loader 



10 rem format a track > 35 

20 rem (c)1986 d, a. hook, all rights reserved 

30 print " H'^^®^' blank disk, then 

press <return>'' 
40 get z$: if z$<>chr$(13) goto 40 
50 input " Bfl disk name, id " ; n$, id$ 
60open15, 8, 15, "nO:" + n$ + 

gosub 800 



II IP 



id$: 
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JN 
PB 
KO 

AC 
PB 
HH 

El 

lA 
JH 
HO 

EE 
EH 
JE 

MG 

JD 

NA 

FL 

CI 

NC 

AM 

GL 

GE 

AM 

PO 

OH 

FE 

CD 

PB 

LK 

BC 
AF 
LB 
BG 



70 count = 

99 rem put jmp $0400 into buffer #3 

100 print#15, 'm-w' ; chr${0); chr$(6); chr$(3); 
clir$(76); chr$(0); chir$(4) 

IIOgosubBOO 

1 99 rem set to track 35/sector 

200 pfjnt#15, " m-w" ; chr$(12); chr$(0); chr$(2); 
chr$(35), cfir$(0) 

210gosub800 

299 rem read ml into disk ram ($0400) 

300 restore: for i = to 69: read d 
310prjnt#15, "m-w' ; chr${i); chr$(4): chr$(1): 

chr$(d) 
320 next 

399 rem execute from $0003 

400 print#15, "m-w" ; cfir${3); cfir$(0}; chr${1}; 
chr$(224) 

499 rem read disk error code 
500print#15, "m-r"; chr$(3); cfir$(0) 
510get#15, e$: e = asc(e$) 
520if e=1 then print 'done, ok", close 15: end 
530ifcount=10goto900 
540 count = count + 1: goto 100 
800 input#1 5, e, e$, t, s: if e = then return 
810 print e; eS; t; s; 'failed" ; close 15: end 
900 if e<1 7 then print "controller error #' ; e 
910gosub800: gotoSIO 

1000data165, 34,133, 81,169, 1,141, 32 
lOIOdata 6,169, 64,141, 33, 6,169, 15 

6, 169, 16, 133, 67, 32 
32, 40, 4,230, 81, 165 
36, 144,242, 76, 12,251 

tt highest track number 
(>35) to be formatted 
1050data174, 0, 28,232,138, 41, 3,133 
lOeOdata 20,173, 0, 28, 41,252, 5, 20 
1070data141, 0, 28,160, 5,162,255,202 
1080data208,253, 136.208,250, 96 



1020 data 141, 34, 
1030 data 40, 4, 

1040 data 81,201, 

1041 rem 



Format > 35: PAL Source Code 



NP 
EK 
GJ 
IN 
OL 
EL 
EA 
AC 
KJ 
ED 
PN 
IE 
OE 
HI 



100 
110 
120 
130 
140 
150 
160 
170 
180 
190 
200 
210 
220 
230 



rem format track 36 source code 

rem (c) 1 986 d. a- hook 

rem 

rem code stored in disk buffer^3 

rem loaded from the basic program 

rem 

sys 700 ;for pal 64 assembler 

9 

* = $0400 

;••• 1541 ram locations ••• 



FE 

AH 

JC 

El 

01 

GN 

GM 

MK 

NL 

OA 

KM 

Ml 

NC 
NO 
CE 
MP 
DE 



KB 
KM 
GD 
DM 
NK 
CN 
HO 
AG 
GB 
EH 
GH 
00 

AN 

EB 

II 

PG 
MG 
KJ 
LM 
IN 
EO 

PI 
GP 
CF 
NC 
JF 
BE 
OJ 
CD 
CK 



240 ftnum = 

250; 

260dskcnt = 

270; 

280; 

290 start Ida 

300 sta 

310; 

320 Ida 

330 sta 

340; 

350 Ida 

360 sta 

370 Ida 

380 sta 

390; 

400 Ida 

410 sta 

420; 

430 bigger jsr 

440 jsr 

450 inc 

460 Ida 

470 cmp 

480 bcc 

490; 

500 

510; 

520 step Idx 

530 jnx 

540 txa 

550 and 

560 sta 

570 Ida 

580 and 

590 ora 

600 sta 

610; 

620 

630 

640; 

650 loop 

660 bne 

670 dey 

680 bne 

690 rts 

700; 

7 10. end 



$51 ;format track number 
$1cOO ;disk controller 



drvtrk ;current track # 
ftnum ;keep it 

#1 ;no errors allowed 

$0620 

#$40 ;trial#ofbyteson1/2 

track 
$0621 
#$0f 
$0622 

#1 6 ;allow 1 6 sectors/track 
sectr 

step ;move head twice 

step 

ftnum 

Ttnum 

#36 ;are we there yet 

bigger 



jmp $fbOc ;enter rom routine now 



dskcnt ;move head out 1/2 track 



#%1 1 

$14 ;unused ram loc'n 

dskcnt 

#%11 111100 

$14 

dskcnt 



Idy #5 



Idx #$ff 



;delay loop (for head 
settling) 



dex 
loop 

loop 



drvtrk = $22 
sectr = $43 



:current track number 
;sector counter 
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An Amiga 

Parallel Printer Cable 



In the Volume 6. Issue 6. Ihe Article. 'The Amisa: A User's Perspective" touted the 
Amiga 'a ability to work easily with any printer. It didn 1 mention, however. Ihe difficulty 
involved in hooking up a printer in the first place. This article addresses that problem. 



Steve Michel 
Sterling, IL 



If you have tried lo hook your brand new 
AMIGA lo a Cenlronics-type parallel inter- 
face printer, you probably ran into a little 
Irouble, Well, you aren't alone. So did every- 
one else in the world!! 

The reason for this problem is fairly simple. 
The 25 pin connector at the rear of the 
AMIGA Ihaf is designated as the parallel port 
is a called a DB-25 connector. Your printer 
cable has a DB-25 connector on one end to 
attach to the AMIGA and a 36 pin connector 
on the other end to attach to your printer. 
These connectors are fairly standard connec- 
tors throughout the industry and have al- 
lowed us the limited amount of compatibility 
between computers and peripherals that we 
now enjoy. 

So, if the AMIGA and the printer cable use 
the same standard connectors, what's the 
problem ? All connectors come in two forms: 
MALE and FEMALE. In order to connect two 
cables together, one must have a female 
connector and the other must have a male 
connector. The standard printer cable that 
you would purchase has a male DB-25 con- 
nector. Guess what type of DB-25 connector 
is supplied in the rear of the AMIGA? If you 
said male, you must be a long-time Commo- 
dore user and used to such goings on. 

The use of a male DB-25 connector on the 
AMIGA puzzled me at first, especially since 
two other connectors in the rear (DISK 
DRIVE and SERIAL) are female connectors. 
However, after a little checking in my printer 
manual and the Introduction to AMIGA man- 
ual, I found that some pins on the AMIGA 
DB-25 are not directly connectible with a 
standard off-the-shelf printer cable. There- 
fore, in an attempt to keep an unwary user 
from just plugging in a cable that could cause 
some serious damage to either the AMIGA or 
the printer, a male connector was used on 
the AMIGA. This forces the user to obtain the 
correct cable. 



There are threepossible solutions to the above problem: (l)don'tusea printer, (2) 
wait for Commodore or some other second source to produce an appropriate 
cable or (3) construct your own cable. 

Option 1 is unacceptable. Option 2 is okay if you are the patient type. The 
remainder of this article focuses on Option 3. 

Table 1 shows the pin connections necessary to correctly interface the AMIGA 
parallel DB-25 connector with a 36-pin parallel connector for a Centronics 
interface printer. The parallel function labels and pins numbers were obtained 
from a Panasonic KX~P1090 printer manual. The AMIGA function labels and pin 
numbers were obtained from the Introduction to AMIGA manual (Reference 7- 
13). The wire colors column has been left blank to assist in creating your own 
cable. 



TABLE 1 



Parallel 

Function 

Ubel 



Wire 
Colour 
(All in) 



STROBE 

DATA I 

DATA2 

DATA3 

DATA4 

DATA5 

DATA6 

DATA7 

DATA8 

ACK 

BUSY 

PE 

SELECT 

GND 

GND 

GND 

GND 

GND 

GND 

GND 

GND 

GND 

PRIME 



Pin Number 

Parallel 

Connector 



Pin Number 
Female DB-25 
Connector 



Amiga 

Function 

Ubel 



1 


1 


DRDY 


2 


2 


DO 


3 


3 


D! 


4 


4 


D2 


5 


5 


D3 


6 


6 


D4 


7 


7 


D5 


8 


8 


D6 


9 


9 


D7 


10 


10 


ACK 


11 


11 


BUSY 


12 


12 


POUT 


13 


13 


SEL 


19 


14 


GND 


20 


15 


GND 


21 


16 


GND 


22 


17 


GND 


23 


18 


GND 


24 


19 


GND 


25 


20 


GND 


26 


21 


GND 


27 


22 


GND 


31 


25 


RESET 
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Making The Cable: 

1. Obtain the necessary cable components: (the parts numbers 
are Radio Shack numbers) 

36 pin male Centronics connector (276-1534A) 
25 pin female 08-25 connector (276-1 548) 
Headshells for both connectors 
An appropriate length of 25 conductor cable 

If you have access to a good electronics store, the above list 
should prove no problem. However, in my area the 25 conduc- 
tor cable was impossible to obtain. The next best approach was 
to buy astandard printer cable with connectors already in place 
and alter it to fit the AMIGA. In this case, you only need the 
standard cable (26-1401) and the 25 pin female DB-25 connec- 
tor. As an alternative, 25-conductof ribbon cable will work 
well, 

2- If altering a standard printer cable, go to STEP 4. 

3. Each wire in the 25 conductor cable will be color coded. 
Choose any color for pin \ and write it In Table L Continue 
selecting a different coloured wire for each of the 23 pins listed 
in the Table. The two excess wires may be snipped off- Go to 
STEP 6, 

4. Remove the hood from the 25 pin male 08-25 connector 
and expose the wires at the rear of the connector. Remove the 
connector completely by snipping all the wires. Save this male 
connector for future projects. 

5. Using a continuity tester or Ohm meler, decipher the color 
coding for each pin on the 36 pin parallel connector. Do this by 
placing one lead of the continuity tester on pin 1 of the parallel 
connector and then systematically testing each of the wire ends 
that were just disconnected from the male DB-25 connector. 
When the continuity tester light (or buzzer) turns on, write that 
wirecolor in Tablel.Continucthis process for each of 23 pins 
listed. Be sure to use the pin numbers listed under the parallel 
connector column. When this has been completed, there will 
probably be several wires 'left over". That is because only 23 of 
the possible 36 are going to be used. These "left over" wires 
may be simply snipped off making sure that no exposed metal 
ends come in contact with each other, 

6- Using Table 1, solder each of the colour coded wires to the 
correct pin numbers on the DB-25 connector. (If starting with 
all separate components, solder the same coloured wire to the 
corresponding pin on the parallel connector as well.) Please 
note that the first Ihirleen wires are connected "straight 
through"and the first pin number change occurs at pins 19 on 

the parallel and 14 on the DB-25- 

7. When all ihe wires have been soldered, RE-CHECK each of 
the pin connections with a continuity tester one last time to 
insure that all is right with the world. Too much haste at this 
point could be deadly to your AMIGA and/or printer. 

8. Replace the headshell{s) on the connector(s)- 

9. Connect the cable and you should be on your way. Happy 
printing. 



TransBloopers 

Volume 7, Issue 01, page 54 

The sub-headini^ for rhe article "Adding Functions lo Basic" should 
not be there. It says "Execute machine language programs inside 
your 154 1". which came from an article in a previous issue and has 
absolutely nothing to with this one. Also, the source listing in rhe 
same article (on pages 56 and 57) was converted lo PAL assembler 
format from CBM format, and all of the question marks in the 
comments were tokenized lo read as PRINT A clear case of the 
3AM-make-it-for-deadline disease, which attacks us mercilessly 
fromlime to time. 

Volume 7, Issue 01 , page 30 

The unexpected happened in our last issue. Jim BuUerfield's C-l 28 
RAM map was not quite perfect! On page 30 you will find three 
mistakes. All of them are in Bank Zero. First, the correct decimal 
equivalent of $0A1D40A1F is 2589-2591. Second, the correct 
decimal equivalentof$lC00-$IFF7 is 7168-8183. And, finally, the 
correcl decimal equivalent of S1FF8-$IFFF is 8184-8191 . We hope 
that these minor errors haven't fouled up your programming 
efforts too much. 

Transactor Disk '12 Fix 

We've been receiving reports of some real problems with Disk '12, 
Somehow the file pointers of the first 7 entries each point to the 
next entry in the directory. That is, if you try loading the second 
program in the dir, you'll actually get the third program, loading 
ihe 3rd gives you the 4lh, etc. The 9th file and all afterwards are ok. 
The following program will fix this problem, but don^l run ii with 
any other disk in the drive but Transactor Disk '12. As written it 
should work an 1 541/40, 4040, MSD, Indus, or any other 35 track 
compatible. 



HP 
DH 
FK 
PH 
PE 

DB 
PB 

CD 

JA 
DP 

IP 
01 
CH 
PL 



100remsave"0,ltiefix',8 
110 rem ** rte/86 - to fix transactor's disk #12 
120 rem •• when complete, all files but 'aid4' and 
130 rem ** Vicaid.rel' will have been repaired 
1 40 dv = 8: open 1 5,civ, 1 5: open 8,dv,S, ' # ~ : 

print#15,"u1:'8;0;18;1 
1 50 for X = to 7: for y = to 31 
1 60 get#8,a$: a${x) = a$(xj + chr$(asc(a$ + chr$(0))): 

nexty.x 
170 if mid$(a$(0),4,1)-chr$(0) then 230: rem has 

already been repaired 
1 80 rp$ = chf$(0) + chr$(0): tor x = to 7 
190 t$ = mid$(a$(x).4,2}; a$(x) = mid$(a$(x),1 ,3) + 

rp$ + mid$(a$(x),6): rp$ = t$ 
200 next print#15/'b-p: 'SiO 
210for x==0to7;print#8,a$(x);:next 
220prjnt#15/u2:^8;0:18;l 
230 close8: closel 5; end 



We noticed some other problems too. Some stray glitch really 
gave us the slip! Besides 'AID4" and "VIC AID.REL" (as 
mentioned in the rems above). "'VERIFIZERPET" is also virtu- 
ally a write-off, but these are on most of the other Transactor 
Disks should you need them/'CI 28 MESSAGE" and ^'ARCHI- 
TESTER" fortheC12S, both load ok and look ok. but are not 
tokenized properly for correct operation on the C 1 28. Both ^re 
short. . . simply load them and hit RETURN over each line. 
SAVE them back to disk and they'll be fine forever after. 
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Save SYMASS Symbols 



Robert Huehn 
Neustadt, Ontario 



Create Symbol Table Files Accessible From The BASIC Editor 



SYMASS 3, ! Assembler Notes 

SYMASS 3.1 has a few features not mentioned in last issue's 
article. 

1 . Binary numbers can be used with the % prefix. 

2. The offending line is listed when an error condition occurs. 



program's symbol table. You can load the file as a normal 
program, and list it on your screen or printer to help with 
debugging. 

First, obtain a copy of SYMASS, type in the SSS source code, 
and assemble it. At this point, if you type: 

sys820"st.sss 



3 All instructions Iike1da0y,which have nozero page mode. .. .a PRG file called "sl.sss" will be created on disk containing a 
are assumed to be absolute. Hst of every symbol and its value. This file starts with: 



SYMASS 3.1 has two bugs, one which prevents using the 
opcode TXS. At the beginning of the source code NOPS should 
equal 56. not 55, to let the last op in the table be recognized. 
Also, the high byte of an addition isn't stored to memory, only 
the low one, so values greater than 255 won't work. The fix is 
easy enough: 

Load in SYMASS 3.1, and type: 

poke 3304, 56 
poke 2965, 234 
poke 5057, 50 

Save the updated version as SYMASS 3,1 2. 

Ail programmers should be aware that 'def is not only a BASIC 
token, but also a valid hexadecimal number. SYMASS will give 
an illegal quantity error, but unfortunately, PAL will quietly 
assemble the wrong value. Instead of $def use $dee + 1 , or use 
$deeO + 1 instead of $defO when using either assembler. 



SSS or Save SYMASS Symbols 

Save SYMASS Symbols is a useful utility for machine language 
programming. It works with SYMASS. The symbolic assembler 
published last issue in The Transactor, to produce a disk file of a 



1 memsiz = $37 
2syniptr = $52 
3 symend = $57 

When developing a large ML program, a symbol table will help 
you find unique names for routines and variables, SYMASS 
does NOT check for redefinition, allowing you to have multiple 
entries in the table under the same name. Use SSS to make sure 
you don't have that problem. 

Since the symbol table is in program format, it can be modified 
using delete and renumber commands, such as the ones in 
TransBASlC's Prg Management module. Merge together a num- 
ber of Kernal routines you use regularly, and you can merge 
their definitions into your new programs wiJh TransBASlC's 
USE command. 

Editor 5 Note 

The SYMASS Assembler is available on Transactor Disk 1 2. For 
fhe most part, it is PAL compatible, except for some of PAL's 
more exotic features. Otherwise, SYMASS can be used to 
assemble virtually any machine language program published 
in The Transactor. The original source code is also on Disk 12 
so you can see just how an assembler works. For a complete 
description of SYMASS, see Volume 7, Issue 01, page 69. 
SYMASS 3.1 is also included on The TransBASlC Disk. 
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SSS Source Code 




GO 


630 


inc line+1 






DP 


640 sss3 


Ida line:]srchroiil 










PM 
PN 


650 
660 


Ida line + l:jsrchroul 
Idy *'0 




FD 


1 00 sys700 




AM 


110; «< save symass symbols »> 


CK 


670 sss-l 


Ida (symptr),y 




MG 


120; 


1.3 


FA 


680 


beq sss5 




DD 


130 ; roberl huchn mar 1986 


KC 


690 


jsr chrout :save symbol name 




GG 


140 • 


820 :820tol021 


DE 


700 


iny ;cpy *8 




MA 


150; 




KA 


710 


bne sss4 




DD 


160 memsiz = 


$37 


;top of memory 


Al 


720 sss5 


da "" " ijsr chrout 




JL 


170symptr = 


$52 


;poinIer to table 


AO 


730 


Ida *Sb2:jsrchroul ;save ' =$' 




KL 


ISOsymend = 


$57 


;botlom of table 


CP 

1 


740 


Ida *''$':jsr chrout ;and hex value 




PP 


190 line 


$39 


;line number 


GP 


750 


Idy *9:ld^ (symptr),y:beq sss6:jsr hex 




BO i 


200 cir 


$a663 


;doclr 


EA 


760 sss6 


dey:lda (symptr), y:jsr hex 




cgI 


210eval 


$ad9e 


;evaluale expression 


CO i 


770 


Ida *0:jsr chrout 




AK , 


220chkstr - 


$b6a3 


;check for string 


NH 


780 


jmp sssl 




Dl 


230selnam = 


$ffbd 


;set file name 


BC , 

1 


790 hex 


- • ;print hex number 




EP 


240 setlfs = 


$ffba 


;5et logical file 


MJ : 


800 


pha 




OH 


250 open = 


$ffc0 


;open file 


MD 

1 


810 


Isrilsrlsnlsr 




Gl 


260chkout = 


$ffc9 


;output channel 


OG 


820 


jsr hel 




GH 


i270chrout - 


$ffd2 


;print 


DB 


830 


pla:and ^-SOf 




01 


:280c!rchn - 


$ffcc 


;clear channels 


FF 


840 hel 


cmp *10 




KO 


290 close - 


$ffc3 


; close 


DB I 


850 


bcc h^2 




OM 


300 ready - 


$a474 


; ready 


FE 


860 


<u (■ "G 




MK 


310; 




FM 


870 he2 


adc "$30 




BB 


320 Ida 


memsiz:sta symptr ;protect j 


NC 


880 


jmp chrout 




FC 


330 Ida 


memsiz +l:slasyTnptr+l ;symbol 


KA 


890 lower 


= # 




HG 


340 Ida 


symendildx symend+ 1 ;lable from 


MG 


900 


sta memsiz:5tx memsiz + 1 




II 


350 jsr 


lower 


FO 


910 


imp cr 




KC 


360 jsr 


eval 


;basic's evaluate 


NB 


920 doul 


= f 




KN 


370 jsr 


chksTr 


;get length and pointer 


EG 


930 


jsr chroulrjmp chrout 




FF 


■380 jsr 


selnam 


;for kernal routine 


LF ■ 


940 done 


Ida *0:jsr dout 




NO 


390 Ida 


'8 


;file 8, dev 8 


OM 


950 


Ida "8 ;finish 




LF 


400 tax 




FD ' 


960 


jsr close 




NP 


410 Idy 


*1 ;sec addr 1 


1 

BN 


970 


jsr circhn 




OG 
CC 


420 jsr 
430 jsr 


setlfs 
open 


m 


980 


jmp ready 








PA 


440 Idx 


"8 








El 


450 jsr 


chkoul 








DC 


460 Ida 


* 1 ;J5r dout ;fake start address 








DO 


470 Ida 


*0:staline:slaline-f 1 








IN 


480 Ida 


symplr:ldxsymplr+l 








HH 


490 jsr 


lower 


;move memsiz back 








GK 


1500 sssl Ida 


symplr 


;check for end of 








AH 


1510 sec 


. 


jsymbol table 








FJ 


520 sbc 


-10 








MN 


530 sta 


symptr 








PG 


540 bcs 


sss2 








PG 


550 dec 


symptr+1 








GO 


560 sss2 cmp 


symend 






; 


II : 


570 Ida 


symptr -f 1 








EL 


580 sbc 


symend -+- 1 








MN 


590 bcc 


done 








MB 


600 Ida 


"l;jsr dout 








FF 


1 

i610 inc 


line ;save fake link and new 








IG 


620 bne 


sss3 ;line number 
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A Relative File Copy Utility For The Commodore 64 



Since the day that the Vic 20 made it's debut, programmers have 
purposely avoided relative files. The reasons given, if any, are 
usually the speed and reliabitity of the 1 540/ 1 54 1 serial drives and 
Ihe regression to Basic 2.0 syntax. What was once a trusted friend 
among the Basic 4.0 Pet/CBM users had degenerated to a level of 
outcast among all. Even today, after scores of books and magazine 
articles have been written about the subject, fears persist. 

In the face of these fears and misconceptions, some brave pro- 
grammers have battled the odds and won. Many data base, 
accounting and communications systems have been writleri, some 
well - others not so well, making use of relative files as their main 
data storage medium. Although relative files have a few inherent 
limitations such as a maximum record length of 254 characters, a 
maximum number of records in a file of 65535 and a cap on the 
maximum amouEit of space available for use by a relative iile on 
disk, good planning and a few programming tricks have been 
known to minimize the problems. And so, on to the purpose of this 
article. 

The Purpose 

Transcribe 64 is 1361 bytes of code that will do what no program 
has done before (the shadow of Star Trek looms overhead), h will 
single drive copy relative files using the Commodore 64 with any 
Commodore or compatible drive. After all these years, you can 
now duplicate all of your relative data files without being forced 
into bit copying the entire diskette each time. Although a little late, 
it has arrived. 

As stated above, Transcribe 64 will copy relative files using aiiy 
Commodore or compatible drive supporting them. If the drive 
requires that you use an \EE\L interface then Ihe interface might be 
the only stumbliEig block in your way, I tested the program using a 
GLINK IEEE interface to communicate with my ^090, 8250 and 
2031 drives. Access to my 1571 (in 1541 mode) was made in the 
normal fashion. The GLINK is unique in that it uses no RAM 
whatsoever. It operates by swapping ROM depending on the 
setting of the serial/paraiiel switch. Transcribe 64, written entirely 
in assembler, uses all RAM from $lOOO-tFFFF except the $DOO0- 
SDFFF area {52k of storage). It also uses 6 bytes of zero page ($57- 
$5C) plus location $01 for swapping out RAM and ROM. Further to 
that, the input buffer ($0200-) is used to retrieve and modify the 
name of the file to be copied. And finally, the program itself 
occupies memory from the start of Basic up by 1 36 1 bytes (S0801 - 
$0D51). Other than that, memory is untouched. If your interface 
does not rely on RAM in any of the areas mentioned, you're okay. 
If not, you can either re-wrile the source, which shouldn't be loo 
difficult, or change interfaces. Your choice if you are forced into 



making it. 

The program has been written to perform as many 52k passes as 
required to copy the relative file chosen. Remember, though, that 
not all diskettes are created equal with regards to relative file 
storage space. The 1540, 1541, 2031 and 4040 can store a maxi- 
mum of 658 blocks of relative data in one file. The 1 57 1 Jn double 
sided mode from 64 mode, and the DOS 2.5 version of the 8050 
can handle 720 blocks in total per file. The DOS 2.7 version of the 
8050. after setting it up to handle expanded relative files, allows a 
maximum of about 508k of data per file. The DOS 2.7 8250 allows 
a maximum of about 1 .04 megabytes of data per file. The Commo- 
dore 9060 and 9090 hard drives allow a maximum of 4.9 meg and 
7.35 meg of data/relative file consecutively. As a fail safe rule 
when copying relative files remember, when in doubt, think. 
Imagine trying to fit 7.35 megabytes of data on a 167k. 1541 
diskette. It could be tight. Error detection has been buih into the 
program so that if a problem develops then all files will be closed 
up, the offending error number will be displayed and control will 
be passed back to Basic, Not loo awful. 

How It Works 

To start, not all of the available RAM is used for the storage of 
relative data. One byte/record is consumed as a count of the 
number of characters read from each record. This method is 
employed due to Ihe funny nature of relative files. If, for example, 
you have a relative record length of 40 characters but, after 
positioning to the first byte in the record, you only write 10 
characters, you will find that you can only retrieve 10 characters 
from that record later. Regardless of what was in the record before 
the last write. DOS will prevent you from retrieving more than 10 
characters. After reading in the tenth character, Ihe variable ST 
will be set to a value of 64, end-of-file. If you persist in reading 
data beyond this point, the DOS will foil your foolish attempts and 
position to Ihe next record automatically. One byte/record con- 
sumed in RAM is my method of compensating for the strange 
behavior of DOS. 

The program has been written to simply [,oad and Run. No strange 
SYS addresses or special theatrics to perform before using. Once it 
is up and running, you will be prompted to place the source 
diskette in drive zero and enter the filename in which you wish to 
copy. Dual drive users beware: drive zero is the only one allowed 
for the occasion. When you enter the filename, you can enter it 
with or without a drive number. The length of the actual name 
entered is checked to make sure you don't exceed 16 characters. 

Once you have supplied the filename, the program will Open and 
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read through the disks directory (vid Ihe equivalent of open 8,8,8, 
"$0"), looking specifically for relativ(^ file program types ($84). If 
found, a byte for byte check is made against the filename. It a 
match occurs and the filename length is less than Ifi then the next 
byte in the directory filename is checked to see if il is a Shifted 
Space ie. CHR$(I60). A complete filename in the disks directory is 
always followed by enough Shifted Spaces to pad in the complete 
length of 16. If Ihe name has a length less than 16 then anything 
other than aCHRS(160)will signify that the match is incorrect. 

Once the filename has been verified, the next three bytes follow- 
ing Ihe filename are read in: the first side sector track + sector plus 
the relative record size. The record size is retained, the file is 
closed up and the program continues along its predetermined 

path. 

With the record length known, one last variable remains to be 
found: the number of records in the file. To solve this problem, we 
need to open up the relative file for a quick pass through. First, a 
suffix of " ,1, " plus the record length is added to the filename with 
the length of the filename updated accordingly, then the file is 
opened up. Once open, a loop begins which positions to records* I 
upwards until an error "50, no-record-prese[it, is discovered via 
the command channel With this error received, the record posi- 
tion is backed off I notch and the actual copy session is ready to 
begin. 

The file is not closed after determining the highest record number. 
To save time, the copy session is entered directly. First, record "\ is 
positioned to and location $FFFF is marked as the first record 
character count address. Data is stored in RAM from SFFFF 
downwards. Following this, the data retrieved from the record is 
stored in RAM sequentially until ST = 64. When this occurs, the 
record position is incremented, the new record is positioned to. 
error ''50 is checked for to see if Ihe end has come and, if not, the 
retrieval session begins again. Before actually briEiging in the data 
each lime, though, a quick bit of math is performed to see if: 
current RAM location - the record length - I (count) < lowest 
position in RAM storage. If not then the session continues. 

Special Indicators 

Two special indicators are used in lieu of the character count. They 
are available for use because the number of characters/record can 
never be equal to them. They are: 

Byte Value $00: Indicates that the end of file has been reached and 
no more data is left to copy. When the write section of the copy 
routine discovers this value, it closes up all files, displays a copy 
complete!' message for the viewing audience and returns to Basic. 

Byte Value SFF: When the read session runs out of available 
storage space, it flags a count of 255 to indicate that more data 
remains to be copied from the source file. When found by the write 
section, the destination file is closed up, a prompt is displayed 
asking that the diskettes be swapped aiid a wait until <carndge 
return> loop begins. Once <return> is pressed, the source file is 
re-opened and the read ses,sion starts up where it left off. Tran- 
scribe will make as many passes as necessary to copy the entire 
relative file. 

The Write Session 



The write session is really a read session in reverse. Ail data is 
pulled sequentially from RAM address $FFFF downwards, with 
the count of characters for each record used as an index for the 
write. There are no special tricks performed in this session. It 
simply gets the data and writes it to the correct record number. 
One note must be made about the write session, though. On the 
first pass, the destination file must be created before it can be 
accessed. Relative hies are funny in this respect. Unlike sequential, 
user or program hies that expand as you hll them, relative files 
need predetermined borders in which to operate. To create a 
relative hie, you first open it for the first time with the correct 
record length then position to the maximum record number that 
you will need. From there you print CHR$(255); to that record. 
DOS then builds the hie automatically. Once complete and the 
error channel reports that the creation went okay, the actual write 
session begins. Ahhough the hie could have been expanded, 
record by record, as Ihe data presented itself without creating the 
entire hie first, I felt it best to do it this way to make sure that Ihe 
complete hie would fit on disk. In providing this feature, the source 
and object was increased in size considerably. The hnal resuU 
seems to be worth the extra effort involved. 

At this point I would like to mention two very special people who 
helped me with making this program come alive. While I was in 
the last throes of writing Transcribe, a rotten roadblock material- 
ized with the 1 54 L Although the program worked perfect with my 
IEEE drives, the 1541 was having a tantrum. The program would 
repeatedly bomb out after creating the destination file for the hrst 
time. An error message number 4 (?) would be displayed each time 
after creation. At this stage, (he 1541 would be in an error 
condition, flashing it's lights in a rather disturbing manner. By 
reading the error channel, a 'record- not-present' error was found. 
An odd state of affairs. 

After repeated attempts to cure the problem, I did the obvious; I 
called Jim Butlerheld, Jim, in his usual patient way, told me that I 
must have done something stupid. An error number 4 cannot 
happen in Basic, therefore, my coding was at fault. He proceeded 
to run through a few possible ways in which the code could be 
messing things up, of which only one rang a faint belL After a few 
more minutes of idle chatter on my part, we hung up. The faint bell 
started to get louder. He had asked if I was reading ALL the data 
from the error channel until I reached a CHR$(I3). I was not but, in 
my typical myopic manner, I could not see how my IEEE drives 
could live with an incompletely read error channel when the 154 1 
could not- To quickly finish up, Jim was right. Aher modifying the 
code to read the entire message, the 1541 washappy. JimB. tothe 
rescue once again. 

The program was finally working just fine, so it was time to phone 
Chris Zamara to boast a little. At the lime he was bu,sily putting 
together his 'Animals' program which relies on relative hies for 
record keeping. During our conversation I mentioned that one 
thing was still bothering me aher completing the codei would Ihe 
1541 reliably write the data each time. I had tested it quite a bit but 
still did not completely trust it. After so many years of bad press, 
old fears die hard. Chris came up with an article in Compute! 
magazine from back in July 1985 that stated that you should 
always position to a record, write your data, then position once 
again to the same record to prevent 'spill-over'. It sounded odd but 
it seemed to work for Chris. I had been positioning twice to each 
record before a read or write, just to be on the safe side. It was now 
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clear thai I was in the dark. Another phone call was in order. 

On the conclusion oi our conversation, I called up Dr. Gerald 
Neufeld, the co-author of Inside Commodore DOS' (Datamosl 
ISBN 0-88190-366-3) and author of the '154] User's Guide' 
(Datamost ISBN 0-88190-396-5). if a reliable answer was needed, 
why not go to the source? 

Gerald was terrific. We talked, his grandaughter played in the 
background, and 1 learned that for sequential access to relative 
files, no special tricks need be performed. A single position and a 
write would work just line. If writing in a random sequence to 
records was required, though, the record should be positioned to 
twice, a time delay of about .5 second should be imposed then the 
write could be performed safely. After a lew more minutes of 
conversation, we said goodbye and I began removing all the 
duplications of positioning within my code. Needless to say, it still 
worked just fine. Transcribe 64 was a completed commodity. 

Before finishing up, 1 should mention a few points that I gleaned 
from the '1541 User's Guide' and from Jim Butterfield. First, three 
record sizes are not allowed when creating relative hies. They are 
42, 58 and 63. Apparently. Gerald discovered this after many days 
of exhaustive testing with the 1541. He figured that DOS gels 
confu,sed witfi the characters '*' CHRS(42). V CHR$(59) and T 
CHR$(63). Further to this he states that the position within the 
record statement, ie.: 

prinl^l5;'p"chr$(SAOR96)chr$(Rec'' Low)chrS(Rec" Hi)chr$(Pos) 

. . .is definitely not an option. Problems will develop when left off. 
When it was used, though, he found it to be reliable. From Jim B. I 
learned not to create a relative file that takes up less than one 
sector (254) of data. Apparently the side sector information will not 
he written, therebye creating a mess. It's so nice to get good 
information. 

In conclusion, a little not .so great news. We are not printing the 
source for Transcribe 64 this issue mainly because it measures in 
around 1 6k. Although the program is quite useful, we have so 
much more to print that my source gets last priority. It will be 
included on The Transactor Disk 'i;i along with the Load and Run 
module Transcribe 64. For those of you so inclined, my code has 
been written using only one non-kernel routine. Input, The 
source is well commented throughout and has been written in PAL 
formal. For all intentions, I now consider the program and source 
10 be in public domain and I wish you all the best of luck with it. If 
you make modifications to the source code and feel it worthy of 
general use, please drop us a copy so we can include it on our 
Transactor disks. If you make a revision, though, make sure to 
update the version number and, in the least, put your name and 
date in the source listing. This will help when determining the 
latest update. 



Transcribe 64: BASIC Loader 



DL 
Jl 
PB 
NP 
El 
CI 



1 000 rem save " 0:transcribe64.bas " 
1010 rem '^* transcribe 64: rte/86 
1020 rem** a relative file copy prg 
1030 rem'" for the commodore 64 

1040 . 

1 050 rem • • this program will create 



.8 



PN 

FJ 

MK 

DE 

BN 

DD 

BH 

LC 
10 
KP 
KC 
EG 
BL 
ND 
BN 
NN 
PA 
OP 
JB 
OP 
PN 
JO 
MC 
KE 
HA 
JJ 
El 
IJ 
OE 
KD 
KJ 
KF 
MG 
GP 
IJ 

AM 
BJ 
NM 
MM 
ON 
BM 
BD 
EM 
LB 
EB 
BD 
EP 
OP 
KA 
OH 
KE 
BF 
CD 
PK 
DD 
HC 
PG 
Kl 
HL 



1 1 50 data 1 , 
11 60 data 48, 
11 70 data 32, 
11 80 data 189, 
1190 data 169, 
1200 data 201, 



64, 0,158, 


50 


0, 0,162, 





96, 165, 162, 





3, 232, 208, 


248 


13,173, 1, 


2 



1 060 rem " » a load and run module on 
1070 rem *• disk called 'transcribe 64' 

1080: 

1090 open 15,8,15: open 8,8,1, '^0:transcnbe 64" 

1 100 jnpjt#15,e,e$,b,c: 11 e then close 1 5: 

print e;e$;b,c: stop 

11 10 for J = 2049 to 3411, read x: print#8,chr$(x);: 

ch = ch + x: next: close8 
1120 it ch<>136167 then print "checksum 

error ! " ; stop 
1 1 30 print " * • module created ' * " end 

1140; 

8, 11, 8. 

54, 49, 0, 

87, 12, 32, 

0, 2, 240, 

17, 141, 64, 

58,208, 5,169, 19.141, 64 
1210data 13,236, 64, 13,176,216,142, 56 
1220data 13,169, 15,162, 8,160, 15, 32 
1230data186,255, 169, 0, 32,189,255, 32 
1240 data 192, 255, 32,185, 11,192, 0,240 
1250data 3, 76,207, 11,169, 8,162, 8 
1260 data 160, 8, 32, 186. 255, 169, 2, 162 
1270dala 54,160, 13, 32,189,255, 32,192 
1280data255, 32,119, 11,192, 0,240. 3 
1290data 76,207, 11,162, 8, 32,198,255 
1300data160, 8,162, 32,142. 64, 13,192 
laiOdata 1,208, 5,162, 30,142, 64, 13 
1320dala206, 64, 13, 32,207,255,201,132 
1330 data 208, 106,206. 64, 13. 32,207,255 
1340data206, 64, 13. 32,207.255,152, 72 
1350data160, 0,140, 65, 13,173, 1, 2 
1360dala201, 58,208, 2,160, 2,206, 64 
1370 data 13, 32,207,255,217, 0, 2,208 
1380 data 65,238, 65, 13,200,204, 56, 13 
1390data208, 236, 172, 65. 13,192, 16,240 
1400data 25,206, 64, 13, 32,207,255,201 
1410data 160,208, 39,240, 6, 32,207,255 
1420data238, 65, 13,172. 65, 13,192, 15 
1430 data 208, 243, 32,207,255, 32,207,255 
1440data 32,207,255,141, 60, 13, 32,204 
1450 data 255, 169, 8, 32,195,255,104, 76 
1460data 30, 9,104,168, 32,207,255.206 
1470 data 64, 13,208,248, 32,183,255,240 
1480 data 13, 32,204,255,169, 8, 32,195 
1490 data 255, 162, 84, 76, 87, 12,136,208 
ISOOdata 3, 76,119, 8, 76,121. 8.174 

13, 160, 0, 185, 57, 13,157 

2,232,200, 192, 3,208,244 

60, 13,157, 0, 2,232,142 

13, 32,230, 11,192, 0.240 

76,207, 11.169, 1,141, 69 

0,141, 70. 13, 32, 

0,240, 7,192, 50,240 

207, 11,238, 69, 13,208 

70, 13,208,232,206, 69 

69, 13,201,255,208, 3 

13,141. 79, 13,173, 70 

80, 13,169, 1,141, 81 

1. 141, 77, 13, 41,252 

13,169, 1,141, 74, 13 



1510 data 56, 
1520 data 0, 
1530 data 173, 
1540 data 56, 
1 550 data 
1 560 data 
1570 data 
1580 data 
1590 data 237, 238, 
leOOdata 13,173, 
1610data206, 70. 
1620data 13, 141, 
1630 data 13, 165, 
1640 data 141, 76, 



3, 

13, 169, 
12,192, 

13, 76, 
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EL 


1650data141, 12. 13,169, 0,141, 75, 13 


FO 


2270 data 141, 


61, 


13 


, 32, 


207, 


255, 


141, 62 




HL 


1660data141, 73, 13,169, 0,141. 63, 13 


BE 


2280 data 13, 


32, 


207 


,255, 


201, 


13, 


208, 249 




M 


1670dala173. 72, 13,141, 69, 13,173, 73 


ID 


2290 data 32, 


204, 


255 


.173, 


61. 


13, 


56, 233 




ML 


1680dala 13,141, 70, 13.169, 0,133, 87 


BF 


2300 data 48, 


141, 


66 


. 13, 


24, 


162, 


9, 109 




JB 


1690 data 169, 255, 133, 88,160,255,140, 65 


EP 


2310 data 66, 


13, 


202 


,208, 


250, 


141, 


66, 13 




JK 


1700data 13,165, 88,133, 92,172, 65, 13 


DC 


2320 data 173, 


62, 


13 


, 56, 


233, 


48, 


24, 109 




CM 


1710dala132, 91, Z2. 19, 11,224, 2,206 


lA 


2330 data 66, 


13, 


168 


, 192, 


20, 


176, 


2,160 




MP 


1720data 9,169,256,160, 0,145, 91, 76 


CC 


2340 data 0, 


96. 


162 


, 15, 


32, 


201, 


255,169 




HJ 


1730data 48. 10,165. 88,201, 16,208, 11 


MD 


2350 data 73, 


32, 


210 


,255. 


169, 


48, 


32,210 




PN 


1740 data 173, 65, 13, 56,237, 60, 13,233 


Al 


2360 data 255, 


32, 


204 


,255, 


32, 


119, 


11, 96 




EP 


1750data 1,144,230,169, 0,141, 78. 13 


BM 


2370 data 169, 


15, 


32. 


, 195, 


255, 


162, 


182, 32 




AE 


1760 data 32, 0, 12,192, 0,240, 15,192 


EE 


2380 data ^1 , 


12, 


173. 


, 61, 


13, 


32, 


210,255 




OF 


1770 data 50,208, 8,169, 0,168,145, 91 


AJ 


2390 data 173, 


62, 


13. 


, 32, 


210, 


255, 


96, 169 




EK 


1780data 76, 48, 10, 76,207, 11,162, 1 


AH 


2400 data 1 , 


162, 


8. 


, 160, 


12, 


32, 


186,255 




FL 


1790 data 32,198,255, 32,207,255, 72,238 


DP 


2410datal73, 


56, 


13. 


,162, 


0, 


160, 


2, 32 




GP 


1800data 78, 13, 32,183,255,141, 63, 13 


DD ; 


2420 data 189, 


255, 


32 


, 192, 


255, 


32, 


119, 11 




KC 


1810dala 32,204,255,104, 32, 12, 11,224 


CG 


2430 data 96, 


162, 


15. 


, 32, 


201, 


255, 


162, 




JB 


1 820 data 0, 240, 227, 224, 1 , 240, 1 70. 1 73 


PA 


2440 data 189, 


67, 


13 


, 32, 


210, 


255, 


232, 224 




J 


1830data 78, 13,160, 0,145, 91,238, 69 


Kl 


2450 data 5, 


208, 


245 


, 32, 


204, 


255, 


32, 119 




GJ 


1840data 13,208,142,238. 70, 13, 76,184 


IM 


2460 data 1 1 , 


96, 


162. 


, 138, 


32, 


87, 


12, 32 




PM 


1850data 9,169, 1, 32.195,255,173. 69 


AO 


2470 data 185, 


11, 


192. 


. 0, 


240, 


1, 


96,173 




IC 


1860data 13,141, 72, 13,173, 70, 13,141 


GP 


2480 data 79, 


13, 


141, 


69, 


13, 


173, 


80, 13 




GG 


1870 data 73, 13,162,103, 32, 87, 12, 32 


MB 


2490data141, 


70, 


13, 


2>2. 230, 


11, 


32, 




BC 


1880 data 107, 12,173, 81, 13,240, 10, 32 


GP 


2500 data 12, 


162, 


1, 


32, 


201, 


255, 


169,255 




LN 


1890data 25, 12,192, 0,240, 3, 76,207 


OD 


2510 data 32, 


210, 


255, 


32, 


204, 


255, 


32, 119 




OG 


1900dala 11,173, 74, 13,141, 69, 13,173 


MP 


2520 data 11, 


152, 


72, 


169, 


1, 


32, 


195,255 




HJ 


1910dala 75, 13,141, 70, 13,169,255,133 


KM 


2530 data 104, 


168. 


169, 


0, 


141, 


81, 


13, 96 




EO 


1920data 90,169, 0,133, 89,160,255,140 


DE 


2540 data 169, 


13, 


32, 


210, 


255, 


32, 


210,255 




KJ 


1930data 65, 13, 32,185, 11, 32,230, 11 


OB 


2550 data 189, 


115, 


12, 


240, 


6, 


32, 


210,255 




GM 


1940 data 192, 0,240, 3, 76,207, 11,165 


EC 


2560 data 232, 208, 


245, 


96, 


32, 


228, 


255, 201 




DK 


1950dala 90,133, 92,169, 0,133, 91.120 


MK 


2570 data 13, 


208, 


249, 


96, 


82, 


69, 


76, 65 




PP 


I960data174, 76, 13,134, 1,172, 65, 13 


EH 


2580 data 84, 


73, 


86, 


69, 


32, 


70, 


73, 76 




NB 


1970data177, 91,174, 77. 13,134, 1, 88 


AK 


2590 data 69, 


32, 


67, 


79, 


80, 


73, 


69, 82 




EJ 


1980data201, 0,240, 71,201,255,208. 47 


Nl 


2600 data 32, 


86. 


49, 


46, 


48, 


48, 


32, 45 




CM 


1990data173, 72, 13,141, 69, 13,141, 74 


AJ 


2610 data 32, 


82, 


84, 


69, 


47, 


56, 


54, 13 




BM 


2000data 13,173, 73, 13,141, 70, 13,141 


HK 


2620 data 13, 


18, 


32 


80, 


76, 


65, 


67, 69 




KB 


20tOda!a 75, 13,169, 1, 32,195,255,162 


DL 


2630 data 32, 


83, 


79 


85, 


82, 


67, 


69, 32 




00 


2020 data 103, 32. 87, 12, 32,107, 12, 32 


DL 


2640 data 68, 


73, 


83 


75, 


32, 


73, 


78, 32 




DK 


2030data185, 11, 32,230, 11,192, 0,240 


PN , 


2650 data 68, 


82, 


73 


^^. 


69, 


32, 


90, 69 




LJ 


2040data 3, 76.207, 11, 76,154, 9,141 


FK 


2660 data 82, 


79, 


32 


13, 


13, 


70, 


73, 76 




BA 


2050data 78. 13, 32, 88, 11, 32, 0, 12 


JL 


2670 data 69. 


78, 


65 


11, 


69, 


32, 


63, 




PA 


2060 data 192, 0,240. 22,192, 50,240, 3 


KO' 


2680 data 18, 


32, 


70 


73, 


76, 


69, 


32, 78 




IF , 


2070dala 76,207, 11.169, 1, 32,195,255 


HCi 


2690 data 79, 


84, 


32. 


70, 


79, 


85, 


78, 68 




NK 


2080 data 169, 15, 32,195,255,162,164, 76 


JK 


2700 data 33, 


32, 


0, 


18, 


32, 


83, 


87, 65 




EG 


2090data 87, 12,162, 1, 32,201,255, 32 


KA 


2710 data 80, 


32, 


68, 


73, 


83. 


75, 


69, 84 




JB 


2100 data 55, 11,206. 78, 13,208,248, 32 


OA 


2720 data 84, 


69, 


83, 


32, 


58, 


32, 


SO, 82 




LH 


2110 data 204, 255, 238, 69, 13,208, 3, 238 


HB 


2730 data 69, 


83, 


83, 


32, 


60, 


82, 


69, 84 




NE 


, 2120data 70, 13, 76,126, 10,162, 0,172 


NO 


1 2740 data 85, 


82, 


78, 


62, 


32. 


0, 


67, 82 




CG 


2130data 65, 13,145, 87,206, 65, 13,136 


JE 


2750 data 69, 


65, 


84, 


73, 


78, 


71, 


32. 68 




EF 


2140data192,255,208, 18,198, 88,165, 88 


DG 


2760 data 69, 


83, 


84, 


73, 


78, 


65, 


84, 73 




DN 


2150data201,223,208, 6, 169,207, 133, 88 


LB 


2770 data 79, 


78, 


32, 


70, 


73, 


76, 


69, 




Ml 


2160data208, 4,201, 15,240, 8,173, 63 


LE 


2780data 18, 


32, 


67, 


. 79, 


80, 


89, 


32, 67 




GH 


2170data 13,201, 64,208, 2,232,232, 96 


Dl 


2790 data 79, 


77, 


80, 


76, 


69, 


84, 


69, 33 




FJ 


2180data172, 65, 13,120,173, 76, 13,133 


GO 


2800 data 32, 


0, 


68, 


73, 


83, 


75, 


32, 69 




BO 


2190dala 1,177, 89. 72,173, 77, 13,133 


EC 


2810 data 82, 


82, 


79, 


82, 


32. 


35, 


0, 36 




LK 


2200data 1, 38, 32, 88, 11,104,224, ; 


HE 


2820 data 48, 


0, 


44, 


76, 


44, 


0, 


0, 




E 


2210 data 240, 3, 76,207, 11, 32,210,255 


MN 


2830 data 0, 


0, 


0, 


0, 


80, 


108, 


1, 




JO 


2220data 96,162, 0,206, 65, 13,136,192 


LO 


2840 data 1, 


1, 


0, 


1, 


0, 


0, 


0, 




JE 
LC 


2230 data 255, 208, 20,198, 90,165, 90,201 
2240 data 223, 208, 6,169,207, 133, 90,208 


AJ 


2850 data 0, 


0, 











+ 






00 


2250daa 6,201, 15,208, 2,162, 1, 96 




















AG 


2260data162, 15, 32,198,255, 32,207,255 
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Animals: 

An Exercise In Artificial Intelligence 

Chris Zamara, Technical Editor 



This program is presented as a game, but it uses principles of 
artificial intelligence thai could make it useful in all sorts of 
interest Ing ways. 

Programs like this have appeared in publications in the past, 
incluijing the books " What to do after you press RETURN " from 
People's Computing, and David Ahl's " 1 01 BASIC Games " . As far 
as i know, it may have been around on mainframes long before 
that, so this is nothing new: just an implementation which will run 
on the PET/64/V1C/ + 4/Bl 28 etc. . and some ideas about applica- 
tions. The first time I heard about the 'animals' program concept 
was in Jim Butlerfield's article called "Artificial (Fake?) Intelli- 
gence" in a recent TPUG magazine. Jim's mention of animals 
inspired me to write the program presented here- 
Put simply, Animals is a Database which increases its knowledge 
as if is used, and locales records in the Database by asking specific 
questions. It is called animals because in its simple form as 
presented here, it can be used as a 'guess the animal" game, 
where the computer tries to guess an animal that you>e thinking 
of by asking questions. To begin with, the program knows only two 
animals and one question, and builds its knowledge of animals as 
it is used, learninga new animal each time it makes a wrong guess. 

To illustrate how it does this, take a look at this sample session. 
The only thing the program knows at first is the question " Does it 
live in the water? " and the anunals " Fish " and " Horse " , 



Does it live inlhe water? no 

*•• It might be a Horse 
Is that correct (y/n)? yes 

Alright! guess I'm pretty smarlT Like to play again? 

In the at>ove case, the player was coincidentally thinking of one of 
the animals the computer knew, but let's try again, thinking of a 
bird. 



Does it live in the water? no 

**• It might be a Horse 
Is that correct (y/n)? no 

Ok, what were you actually thinking of? 
Bird 

What yes/no question couJd I ask to distinguish a Horse from 
a Bird? 
? Does it fly 
And regarding a horse, Does it fly? no 
Thank you for teaching me a new animall 



Play again? 



The program has now learned a new animal, and will ask " Does it 
fly " whenever it get a " no " to ■" Does it live in the water? " , and 
guess "bird" or "horse" depending on the answer. As the 
program is used more and more, it learns new animals, and can " 
intelligently" guess many animals correctly if the people who 
teach it give good questions. The intereshng thing about this 
program is that the programmer who wrote it may know little more 
than the animals Horse and Fish, but after his program has been 
used by others for awhile, it may know hundreds of animals that 
he's never heard of. (The animals and questions are stored on disk 
in a relative file, independent of the program itself.) l^ft in a 
classroom, or better yet, with a few zoologists, the program would 
be quite we 1 1 -educated, as it would assimilate the sum knowledge 
of all who used it. 

After a bit more use, a sample session with the same program 
might go something like this: 

Does it live in the water? no 
Does It fly? no 
Can you fide it^ no 
Does It have soft tur? no 
Is it covered with hair? no 
Does it have tegs? no 
Does It tough-skinned? yes 
Does it eat ants? yes 

It might be an aardvark Is that correct? yes 

The program gets smarter as it is used, but only when given 
questions which properly distinguish the two animals. Also, the 
questionsgivenaremost useful when they split the "yes" and " 
no " answers into nearly equal groups. For example. If you were to 
give a question to distinguish a dog from a chicken, "Does it 
bark?" would b& not much belter than "Is it a dog\ since so 
many more possibilities exist on the "no" side than the "yes\A 
better question in this case would be " Does it have feathers? " , or 
even " Does it lay eggs? " , since such questions give a more even 
split and will lead to the final answer quicker The system is 
basically a binary tree, where each branch is a question that leads 
to two more questions or answers. Choosing good questions will 
result in an evenly distributed tree. 

Another thing to keep in mind when teaching the program a new 
animal is that once you reach the end of a branch of the tree, there 
is no way to add on to that branch Because of that, you can't teach 
the program an animal like " bird " , and then later want To get 
more specific and teach it " sparrow ' or " robin " . Once it guesses 
bird, it'll be right or wrong, and if it's right, youVe reached the end 
of the line- If you want to have a more specific database, you could 
teach it a sparrow and use "is it a bird" as the distinguishing 
question. 
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A good use of !he program, which gefs around the above problem, 
is lu use i( to guess specific people instead of animals. Questions 
like " is he/she female? " , " Does he/she have brown hair? " , etc. 
could be used to lead to the names of your friends. Each of your 
friends could in turn introduce new people to the program, and 
before long you'll have hundreds of people in your database, and 
you would be able to find a the name (and perhaps even phone 
number) of someone simply by answering the computer's ques- 
tions about their physical appearance or likes and dislikes. 

Notice how we've just found a completely different use for the 
same program, simply by giving it different informalion. In fact, 
you could have a " people " as well as an " animals " data file on 
disk, and use the identical program, since it asks you the filename 
of the data when you run it. You could build up lots of files 
containing different types of information, and then jusl RUN the 
program and tell it "animals", " people "» "aircraft", "famous 
people " , or whatever you care to find out about. From a descrip- 
tion of an airplane or an actor, you could find out the identity, 
based on what the program knows so far. 

If you do start using the program to build large datiibases, you'll 
find that it has limitations which make it difficult to use in a 
practical way. For example, if someone puts in a bad or incorrect 
question somewhere along the way, there's no easy way to repair 
the damage, making the database unreliable. Ambiguous ques- 
lioEis could end up with an animal (or whatever things you're 
using) ending up in two different places in the tree. And a tree that 
started with specific instead of more general questions (like asking 
" Is it a marsupial " right off] would need to ask many questions 
before getting to the end of a branch. 

By expanding on the program, all of the above drawbacks could be 
addressed. The program could check the tree for animals in two 
places, and ask questions to find the correct place. The branches m 
the tree could be re-arranged, putting the most common questions 
at the beginning. It could check whether a new animal being 
entered is correct based on all previous questions in the path, and 
ask questions to make the necessary corrections if a discrepancy is 
found. Branches of the tree which are never accessed could be 
labelled as possibly "bad'\ and the program could determine 
which questions to ask to fix it up. And the problem of expanding 
beyond the end of a branch could be solved by allowing multiple- 
choice answers instead of jusl yes or no, for example, " it could be 
a; Ijsparrow, 2)robin, 3)duck". 

An animals program incorporating all of those features could be 
used as a kind of " expert system " , learning from those who use it 
and providing answers to questions based on observed facts. As an 
example, let's use Animals as a car problem diagnosing tool. At 
first, all it knows is the question " Does the engine turn over? " and 
theanswers "Check the ignition cap", and "Check the battery". 
You find your car doesn't turn over and the program tells you to 
check the battery. You find that the problem isn't the battery, go to 
a mechanic, and he finds a cooked starter solenoid. " I thought it 
was the battery " , you say, " No " , says the mechanic, " Look how 
bright The headlights are, and they don't even dim when you try to 
start - obviously, it's the starter or the solenoid, " Aiter visiting 
your friendly local loans officer so that you can pay the mechanic, 
you head home to teach "Animals" something new. When it says 
"Try the battery. Is that correct? " , you say "no" , and tell it about 



the solenoid. When it asks how to distinguish a weak battery from 
a cooked ,solenoid, you say, "Do the headlights dim when attempt- 
ing to start? " , and say ' no " for the bad solenoid. Now, much to 
the dismay of your mechanic and bank manager, you are on your 
way to building a complete car- maintenance database. 

If you were to use the program for the life of your car, it might iearn 
a few things, but nothing that you didn't learn yourself. But if the 
program was properly used at, say, a car dealership's service 
department, the dumb little animals program would have the 
experience of a dozen mechanics at its disposal. Using the 1541 
drive, you could fit over 1 ,700 questions and diagnoses onto a disk 
- the number is only limited by disk space. You could actually do 
this with the program listed here, but you may be frustrated if you 
mess up the database somehow. There are^ however, expert 
systems for microcomputers thai use a similar concept, and are 
designed for use in everyday situations. This program is just for 
fun, and to show how easy it is to achieve a " artificial intelligence 
on a simple level. 

Before you RUN the "Animals" program in the following listing, 
you'll have to create the relative file containing the database. Part 
of the program is set up to do this for you: RUN 51000 to create the 
file. You will be asked the filename (the default is " animals, dat " ), 
and the maximum number of records in the file. 2000 is a good big 
number, creating a file which takes 358 blocks on disk. It will take 
a short while for this file to be created. Once created, the first 
question and the animals hsh and hurse will be written to the file to 
start you off. You can change the start question and answers in 
lines 51110 to 51130. [f at any lime, you wish to re-start the 
database without re-creating the file, just RUN 51100 To copy a 
relative file used by Animals, you cari use the program "Tran- 
scribe", from page A2 in this issue. 

Once the file is created, jusl RUN the program and enter the 
database filename or press RETURN to use " animals.dat " . From 
there on, you can use animals as described above. To answer the 
yes/no questions, just press 'y' or 'n' without RETURN, The 
program has been tested on an 8032, C-64, and B500, and on both 
the 8050 and 1 54 1 drives. It should work on the VIC, + 4 and C- 
1 28 as well. 

When using the program, please note that no disk error checking 
is done. The program is all in BASIC, so you can easily add error- 
checking yourself. The program was kept minimal to make it easy 
to type in. 

How The Program Works 

For all its seeming brilliance, "Animals'" is a very simple pro- 
gram, and was quite easy to write. Each question or animal is 
stored as a record in a relative file. The first four bytes of each 
record store two pointers, which are all zero in the case of an 
diiimal, and point to other records in the case of a question. A 
Question's first pointer points to the record read for a "yes" 
answer, and the second is for a "no". Adding a new question 
merely coEisists of inserting it in this chain, between a question 
and an animal, and making it point to the appropriate animals. 

For example, when the program first starts up, there are three 
records hlled (actually 4, since record *l holds a pointer to the next 
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available record). Record *2 contains the question ■" Does it live in 
the water" and the "yes" pointer points to record '3. "Fish", 
and the "no" pointer points to "Horse" in record '4. If you are 
thinking of a bird, you answer " no " to the question and tell if " 
Bird " . You then give it the question " Does it tly " and say for a 
birds the answer is " yes " . The program then changes the " no " 
pointer of " Does it live in the water " to point to " Does it fly " , 
the "yes" pointer of "Does it fly" points to the new animal " 
Bird\ and the "no" pointer points to the animal which previ- 
ously ended the branch, "Horse", A new question has been 
inserted between a question and an animal, with the old and new 
animal forming the two branches of the new question. Record 5 
now holds the new question, 6 the new animal, and the next- 
record pointer is set to 7. To see how the file looks, RUN 50000 to 
display the file along with the record numbers and pointers. You'll 
see the questions and where they point to, and how questions and 
animals are stored in alternate records. 

When the program restarts after guessing correctly. Jl chains 
through each question by following the "yes" or "no" pointers 
depending on the answers to the questions. When an animal Is 
reached and it is incorrect, the above process is followed again to 
insert a new question and animal Simple, straightforward code 
that an intermediate programmer could produce with little effort. 

If nothing else, this program may de-mystify the concepts of 
programs that learn by their errors and appear to be " smart Mt is 
a lot of fun to play with, and may actually be useful as a simple 
expert system. Give it a try and mystify your friends with " fake " 
intelligence! 

Thanks i^oes to Jim Butterfield for his insights and his artide " 
ArtificiQl (Fake?) Intelligence " . which inspired this program. 

Animate (Please note: some lines were altered slightly just 
before printing. Verifizer codes for these lines will show as "--".) 



AB 

CE 

MB 

EF 

LP 

PI 

EB 

NN 

GD 

LP 

AO 

GE 

OB 

EK 

KO 

MJ 

ID 

DE 

AN 

01 

AK 

IJ 



100 rem "animals" ai program 
110 rem a simpfe expert system 
120 rem run 51000 to create file 
130 rem run 51100 to initialize fiJe 
140 rem run 50000 to print f tie 
1 50 rem save " @0:animals 2.0 " ,8 

160: 

170z$ = chr$(0) 
180sp$='" [56 spaces] 

190rl = 44:fem rel record size- 1 
200 input ^' Name of data filel4 spcs]animals,ciat 
[13 lefts] ";f$ 

210: 

220 rem* main program loop ' 

230 open 15,8,15 

240 open 1,8,9.f$ 

250 pnnt#15, ^ p" ;chr$(9)chr$(1)chr$(0)chr$(1) 

260 rem first record holds next available record 
270gel#1,m1$,m2$: rem in low, hi format 
280ni1$ = left$(m1$ + z$,1):m2$ = !eft$(m2$ + z$,l 

290max = asc(m1$) + 256*asc(m2$) 

300: 
31Oprint^0*-[6spcs]Thinkofan 

animal[10spcs] 



01 
NG 

irvi 

Kl 
HA 
OB 
EC 
KP 
JG 
LE 
OJ 
IB 
HG 
GD 
LF 
PA 
HB 
JC 
PP 
DC 
EL 

HA 
FG 
NH 
BJ 
HO 
CH 
LN 
EO 
OB 
JL 
DE 
CM 

JD 

Dl 

lA 

DG 

LC 

JB 

PP 

HG 

LI 



320 print " ** Answer questions with 'y' or 

'n' 



m* 




GL 



FN 



v« 



AH 

PE 
AL 



330rp = 2:rem point to first question 

340: 

350 r = rp:gosub 20000 'read in data 

360 if yes = and no = then 460 'end of chain 
370 rem chain to next branch 
380 print m$;"? ^ 

390 gosub 1 0000: rem get y/n response 
400 bp = rp: remember old record # 
410ifyn$= "y' lhena$= >es": rp = yes:ob = 
420ifyn$- 'n" thenaS- "no" : rp-no:ob = 1 
430 print a$: rem yesorno 
440 goto 350 
450: 

460 rem end of chain - give guess 
470 print "H**' It might be a ";m$ 
480prinl''>lsthatcorrect(y/n) " . 
490 gosub 10000 'get answer yes or no 
500if yn$=''y'' then 950 found answer wrap up 
510 rem got wrong answer, let's learn from it 
520 print " no " : print " HOK, what were you actually 
thinking of 

530input^ >^animal$ 

540 print "nWhal yes/no question could I ask" 

550 print " to distinguish a " 

560 print" ';m$ 

570 print "from a" 

580 print" ";animal$ 

590 input q$ 

600 nrinfflfAnd regarding a" 

610prinl" ";m$;" ,": print q$ 

620 print ■> (y/n)"; 

630 gosub 10000 'get yes/no 

640 rem create new question pointing to current or 

new animal 
650ifyn$= "y" thenaS- >es":yn = fp: 

nn = max + 1 : rem new yes/no pointers 
660ifyn$^ "n" lhena$= "no" :yn = max + 1: 

nn = rp: rem new yes/no pointers 
670 print a$: rem yes or no 
680 rr = max: gosub 40000 'record^(max) 
690 n = yn: gosub 30000: yn$ = lh$: rem convert n to 

lh$(low + hi) 
700 n = nn: gosub 30000: nn$ = lh$. rem convert n to 

lh$(low + hf) 
710print#1,yn$.nn$;left$(q$4'5p$,rl-4) 

720 gosub 40000 're-position to fofi bug 

730 rem point old question to new 

740r = bp: gosub 20000 'read in old question 

750 n ^ max: gosub 30000 'find low.hi of new 

record position 
760 if Ob = then yes$ = fh$; rem point yes' ptr to 

new question 
770 if ob = 1 then no$ = lh$: rem point 'no" ptr to 

new question 
780 rr - bp' gosub 40000 'record^l ,{bp) 
790 pnnt#1 ,yes$;nc£,m$: rem re-write modified 

record 
800 gosub 40000 're-position to foil bug 
810 rem now put new animal in next available record 
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FL 
HH 

IE 
KM 
DE 

OK 
KD 
DL 
CO 

BG 

GB 

LI 

FN 

ED 
GC 
DM 
LI 
10 
GG 
AH 
CF 
AH 
NM 
HF 
PD 

KO 

EO 

DF 

DL 

Gl 

10 

CP 

HC 

PD 

Bl 

NJ 

CG 

PH 

BN 

GE 

CO 

HE 

LL 
KK 

MA 
EF 

FE 

AG 

CM 

MM 

Jl 



820 rr = max+ 1 gosub 40000 'record#l,(max-f 1 

830 prinl#1 .z$;z$;z$;2$;left$(animal$ + sp$,rl-4) 

840 gosub 40000 're-positfon to toil bug 

850 rem now update max. record pointer 

860 rr = 1 : gOQub 40000 ' 1 St rec has ptf 

870 max = max + 2 : rem 2 records have been added 

to file 
880 n = max: gosub 30000 'convert to 2-byte pointer 
890 print#1 ,lh$,left$(sp$,rl-2); rem pad with spaces 
900 gosub 40000 re-position to foil bug 
910 print' print "Hlhank you for teaching me a 

newanimall " 
920 goto 970 
930: 

940 rem got right answer, wrap up 
950 print" yes": print" ^Alright! Guess I'm pretty 

smart. " 
960: 

970 close 1 : clo se 1 5 

980 fnput "^Jplay again[3 spcs]y[3 lefts] ' ;yn$ 
990ifyn$= "y" then 230 
1 000 end 
1010: 
1020. 

10000 rem* subroutine to accept y or n 
10010k = 0:fori = 0to 1 
10020 get yn$ 
10030 rem flash fake cursor 

1 0040 print mid$Cn"'S9^(^^^^^) + "■''')' 
"[1 spc. 1 c^srleftI^ 

10050k = (k-+-1)and255 

1 0060 i = -{yn$ = ' y " or yn$ = ^ n " ): next 

10070 rem until V' or 'n' pressed 

10080 pnnfH "; rem erase cursor 

10090 return 

10100: 

10110: 

20000 rem subroutine to read record# (r) in 

yes$,no$,m$ 
20010rr = r: gosub 40000 rem record#1,(r) 
20020 get#l,y1$,y2$,n1$,n2$ 
20030 yes$ = left$[y1$ + z$,1) + left$(y2$ + z$,1) 
20040 no$ =left$(n1$ + z$,1) + Ieft$(n2$ + z$,1) 
20050yes = asc(y1$ + 2$) + 256*asc{y2$ + z$) 
20060 no =asc(n1$-+-z$) + 266*asc(n2$ + z$) 
20070 inpul#1,m$ 
20080 rem strip trailing spaces 
20090 Ic = 0: for k = 1 tolen(m$):if mid${m$,k, 1 )<> 

'■ "thenic-k 
20100 next, if lcthenm$=^jeft$(m$jc) 
201 10 return 
20120: 
30000 rem' subroutine lo convert 1 6-blt 'n' to 

low,hi'lh$'' 
30010 hho/o = n/256: Ho/o-n'-256*hh%: 

lh$ = chr$(ll%) + chr$(hh%) 
30020 return 
30030 : 
30040 : 
40000 rem* subroutine to simulate 'record#1,(rr)' using 

basic 2.0 ' 



PN 
NL 

KH 
MN 
GO 

JD 

IB 

MH 

IG 

LK 
MC 

LF 

KL 

MF 

LP 

AO 

JE 

PA 

IC 

IM 

IJ 

NL 

KP 

IH 

CI 

EH 

KF 

IJ 

EB 
DB 
EO 
JE 
NJ 
AK 

GA 
FL 
JK 

HM 

FB 

HP 

AF 

GJ 

MN 

KE 

MF 

IM 

KD 

MN 

OM 

AP 

DO 

DO 

GE 



40010 rh% = rr/256: rl% = rr-256-rh% 

40020 print#1 5, " p ' ;chr$(96 + 9)chr$(r[%)chr$(rh%) 

chr${1) 
40030 return 
40040 : 
40050 : 

50000 rem"* dump relative file 
50010 open 15.8,15 
50020 input " Name of data file[4 spcs]animals.dat 

[13 lefts] ";f$ 
50030 open 1,8,9,f$ 
50040 z$ = chr$(0) 
50050 p^i^I#^5/p^ch^$(9)ch^$(1)ch^${0)chr$(1): 

get#1J$,h$ 
50060 nr = asc(l$ + z$) + 256*aEc(h$ + z£)-1 

50070pnnt" 1 / nr' records in flleH" 
50080rl = 2: rh = 0: rem record # Jo/hi 

50090 for 1 = 2 to nr 

50100pnnt#15/p";chr${9)chr${rl)chr${rh)chr$(1) 

501 10 get#1 ,x1$,x2$,x3$,x4$; input#1 ,a$ 

50120 pi -asc(x1$ + z$)-+-256*asc(x2$-+-z$) 

501 30 p2 = asc(x3$ + z$) + 256'asc(x4$ + z$) 

50140 print i/:";p1,p2/[^'a$^]^ 

50150rl = rl + 1 ifrl>255thenrl-0:rh = rh + 1 

50160 next dose 15 

501 70 end 

50180: 

501 90 : 

51000 rem** create new animal file 

51010 input "Name of data 1ile[4 spcs]animafs.dat 

[13 lefts] ^f$ 
51020 input' maximum number of records[6 spcs] 

2000[6 lefts] " ;m 
51030 open 15.8,15 

51040 open 1,8,9,f$+ M/ +chr$(45): rem reclen = 45 
51050 rr = m: gosub 40000 
51060 print#1 ,left$[sp$,44) 
51070 close 1: close 15: goto 51 110 
51080 input " Name of data file[4 spcs]animals.dat 

[13 lefts] ";f$ 
51090: 

51100 rem** teach first two animals 
51110r1$= "Does it live in the water ":rem first 

question 
51120r2$= Tish" : rem Ves' answer 
51130 r3$= "Horse ": rem 'no' answer 
51140 z$ = chr$[0) 
51150sp$= '■ [56spaces] 

51160 open 15,8,15 
51170 open 1, 8,9, t$ 
51180 rr=1: gosub 40000 
51190printiV1,chr$(5);z$;left$(sp$,40) 
51 200 gosub 40000. rr = rr+ 1 : gosub 40000 
51210 print#1,chr$(3);z$:chr$(4);z$;len${r1$ + sp$,40} 
51 220 gosub 40000: rr = rr + 1 ; gosub 40000 
51 230 prlnl#1 ,z$z$z$z$;left$(r2$ + sp$,40) 
5 1 240 gosub 40000: rr = rr + 1 : gosub 40000 
51 250 prinl#1 ,z$z$z$z$;1eft${r3$ + sp$,40) 
51 260 close 15 
51270 end 
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BREAK KEY 64 



Frank E. DiGioia 
Athens, Georgia 



. , .alter parameters while q program is running. 



If you have ever used a mainframe computer, you are probably 
familiar with Ihe BREAK key. if output is scrolling by too fast, you 
can hall it with the BREAK key and then cause it to resume, when 
you are ready, by pressing return. In addition to just slopping 
output, most mainframe computers allow one to give commands 
which affect program output while in break mode. These are 
usually referred lo as BREAK-TIME COMMANDS. In this article 
we will examine a wedge which converts the RESTORE key on the 
C64 inlo a BREAK key, thus allowing Ihe user to enter break-time 
commands to alter certain parameters while a program is running. 
This exciting capability can be a tremendous aid in program 
development and makes using other people's programs more 
enjoyable. 

Why a BREAK Key? 

Here's the scenario: You get a disk [uh of public domain software 
and boot up Ihe first program (an address filer of course). You're 
instantly blinded by the authors choice of colors — orange on cyan 
on purple. What do you do? Simply hit the BREAK key to interrupt 
the program, adjust the colors exactly the way you want them and 
then hit RETURN to continue execution. Easy! But that is only the 
beginning — BREAK KEY 64 will also allow you to redirect output 
to or from the printer, set new default colors for RUN/STOP- 
RESTORE, make a hardcopy of the current text screen or perform 
a cold system reset. It is compatible with most utilities including 
Epyx Fastload, the DOS wedge, last issue's command wedge and 
function wedge and almost every non-commercial program there 
is. In addition, BREAK KEY 64 is open ended so you can easily add 
your own custom break-time commands. 

How Does It Work? 

Most readers are probably aware that when the RESTORE key is 
struck, it generates a Non-Maskable Interrupt (NMI) to the 6510 
chip That is, the 6510 finishes the instruction it is currently 
working on, saves the STATUS REGISTER and PROGRAM 
COUNTER on the stack and jumps to the address found at $0318/ 
$0319. If the STOP key is not pressed, hitting the RESTORE key 
appears to do nothing even though it actually interrupts whatever 
the computer was doing and executes some ROM routines before 
returning from the interrupt. Clearly, all we need to do in order to 
trap the RESTORE key is to change the vector at $0318/$03i9 to 
point at our own routine. We must be especially careful, however, 
not to change any registers or memory locations which could affect 
the BASIC or machine language program which will be interrupted 




by the break key. This means that care must be taken in selecting 
ROM routines to use in your break code since some of these 
routines use the floating point accumulator and other vital zero 
page locations as a workspace. One consequence of this limitation 
is seen in the very simple parser used by BREAK KEY 64. Rather 
than rely on ROM routines for numeric input, 1 opted to settle for 
simple one-character commands. It should be noted, however, 
that you could always copy all of zero page memory into a buffer 
then use any ROM routine you choose and finally replace the zero 
page memory before continuing program execution. 

BREAK KEY 64 Description: 

To enter break mode with BREAK KEY 64, whether a program is 
running or [iot, you need only to strike the RESTORE key. To leave 
break mode press RETURN . One thing which might confuse you at 
first is the fact that upon entering break mode, no message is 
printed to the screen to let you know that you are in break mode. 
This is to prevent the display from being corrupted in case you 
want to make a hardcopy of the screen. To enter a command, type 
a slash (/). The slash is not echoed until it is dear that you are not 
requesting a hardcopy of the screen. After you type Ihe slash, the 
parser waits for a valid command key press. The following lines list 
the valid commands and explain what they do. The command key 
will always be echoed in the top right hand corner of your screen 
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/H The H command makes a hardcupy of the screen. This 
command is perfet for copying down Instruction screens, 
neal looking title screens, any low resolution graphics, etc. 
When the copy is complete, hit RETURN to continue the 
program. You can abort the hardcopy command by pressing 
the STOP key. 

/P The P command redirects all subsequent output from the 
screen to Ihe printer. This command simply opens a file lo The 
printer using (tie same character set as the screen (le upper/ 
lower or up per/ graphics) and then changes the default output 
device to device *4. Be certain that your printer is turned on 
before using /P, 

/S This command 'undoes' the /P command. It closes the printer 
file and changes the default output device back to the screen. 
Note; U the /P command doesn't seem to work, it probably 
means that you never issued a /S after your last /P to clear 
BREAK KEY 64'5 internal outpul flag, issuing a /S should 
correct the problem. 

/C This command changes Ihe current screen colors. After typing 
/C you are in COLOR mode. Press T to change the text color. 
Press E to change the Edge {border] color and and press G lo 
change the (back)Ground color. When you have adjusted the 
colors to your liking, press RETURN to exit COLOR mode. You 
are then back to BREAK mode. 

/D This command sets the current screen, border and text colors 
as the default colors for RUN-STOP/ RESTORE. For instance, 
if you issue this command while the current screen colors are 
green, blue and gray and then change the colors to anything 
else, when you hit RUN-STOP/RESTORE Ihe screen will go 
back to green, blue and gray. 

/• The 'command causes a cold system reset. This command is 
included In case the C64 ever refuses to obey commands from 
the keyboard. You should still be able to make tt respond to the 
RESTORE key. This simple command is the same as SYS 
64738. 

You will undoubtedly think of some other commands to add to 
BREAK KEY 64 as yon program and use other people's programs. 
Some ideas might include a HIRES screen dump or a BSOUT 
wedge to alter the print speed, etc. 

Final Notes: 

There are several minor limitations lo BREAK KEY 64. (I) It 
should NEVER be used to interrupt disk operations such as LOAD, 
SAVE or printing a directoiy with the DOS wedge. Interrupting a 
disk operation will almost certainly cause the CG4 to miss a 
handshaking signal with the drive causing the computer and drive 
to 'hang up'. Now, before you blame BREAK KEY 64, note that the 
computer will always get 'buEig up^ if you press Ihe RESTORE key 
during a disk operation either with or without BREAK KEY 64 
being present (if you don't believe this is true, type LOAD " $ " ,S 
and strike Ihe RESTORE key a few times while the directory is 
loading). (2) BREAK KEY 64 doesn't allow recursion- Thai is, you 
can't reenter break mode until you finish the current break mode 



task. There is nothing wrong with allowing recursion if you want - 
- there just isn't much point to it since its main affect is simply that 
if you hit RESTORE ten limes, you'll have to hit RETURN ten times 
to leave break mode. (3) It is possible to double or triple bounce the 
RESTORE key causing you to end up with the C64 default colors 
on Ihe screen instead of the defaults you selected and BREAK KEY 
64 will be deactivated. This situation does not normally occur 
unless you really try to make it happen. If it does occur, however, 
vou will have to reactivate BREAK KEY 64 with SYS 50432. 

There are two program listings included with this article. LISTING 
1 is the BASIC loader for BREAK KEY 64. LISTING 2 is the 
assembly language source code for the program. There are several 
stand-alone subroutines included in BREAK KEY 64 which you 
may find useful in your own programs. These routines include 
LOPEN, LCLOSE, DECODE. STOP and CHGTXT. 

BREAK KEY 64 is activated with: 

SYS 50432 

($C500) and is. of course, immune to RUN/STOP-RESTORE. 



BREAK KEY 64: BASIC Loader 



HO 
JC 
OK 
GP 
NN 
HG 
HI 
OB 
KG 
BN 
HP 
ND 
KH 
AA 
\C 
DK 
DP 
JG 
IK 
EJ 
PJ 
FE 
JE 
MM 
FN 
IG 
CJ 
AG 
NG 
EJ 
EF 
GO 
NF 
BO 



100 rem basic loader for restore wedge 

1 1 rem by frank digioia 02/27/86 

1 20 rem sys 50432 to activate 

130: 

1 40 for adr = 5043^ to 51 007. read ml 

150cs = cs + ml:pokeadr,ml;ne^t 

lOOifcsoyaOMthenprinferrorindata" 

170: 

180data169, 18,160,197, 32. 30,171,169 

190dala 41,141, 24, 3,169,197,141, 25 



200 data 3, 96, 66, 82. 

210 data 75, 69, 89, 32, 

220 data 78, 83, 84, 65, 

230 data 0, 72, 138, 72, 

240dala162, 198,141, 24, 



69, 65. 75, 32 

54, 52, 32, 73 

76, 76. 69, 68 

152, 72, 169,223 

3,142, 25, 3 

3, 76, 137, 197 



250 data 32,239, 198, 208, 
260data 88, 32, 88,197,201, 13,240, 10 
270 data 201, 47,208,245. 32, 94,197, 76 
280dala 65,197, 32, 7,197, 76,188,254 
290 data 32,228,255,240,251, 96, 32, 88 
300 data 197, 201, 72,240, 54,201, 80,240 
310 data 17,201, 67,240, 16,201, 42,240 
320data 15,201, 63,240, 14,201, 63,240 
330data 13, 96, 76,127,198, 76, 21,198 
340data 76,226,252, 76,109,198, 76, 67 
350data198, 32, 21,253, 32,163,253, 32 
360data 24,229, 32,201,198, 32, 7,197 
370 data 108, 2,160, 169, 146, 141,231,197 
380data169, 123, 32, 6,199,162, 0,134 
390 data 251, 169, 4, 133,252, 160, 0, 177 
400data251, 32,249,197, 32,232,197, 32 
410 data 210, 255, 32,239,198,240, 32,200 
420data192, 40,144,235.169, 13, 32,210 
430data255, 173,231, 197, 32,210,255, 165 
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DL 
AA 


440data251. 24,105, 40,133,251,144, 2 
450data230,252, 232, 224, 25,144,206, 32 


FB 

OM 
EA 


260 
270 
280 


Ida S>rwdg 
sia $0319 
rls 






AC 


460daa204,255, 169, 123, 76, 43,199,146 


ME 

MO 

MK 


290 jTisg 

300 
310, 


.byte 'break key 64 installefl' 
hull *tnn 




LM 


470 data 133, 215, 41, 63, 6,215, 36,215 


rUyit -pyju 






CG 


480data 16, 2, 9,128,112, 2, 9, 64 


GB 
OP 

AN 


320 rwdg 

330 
340 


ixa 
pha 


;save reQS 




NA 


490data 96, 72,173,231,197, 48, 14,104 






FG SOOdala 48. 10, 72,169,146,141.231,197 


FB 
EO 

10 


350 

seo 

370, 


lya 
pha 






\ 


510 data 32,210,255,104, 96,104, 16,252 






NB 


520data 72,169. 18,208,240,169, 3, 32 


PB 

Ml 


380 
1^0 


Ida #<brk2 
Id* #>bTk2 


.disable recursion 




OF 


530data 95,198, 32, 88,197,201, 13,208 


PE 


400 


Sia $031 8 






MD 


540 data 1, 96,201, 84,208, 9,238,134 


GL 
KB 
00 


410 
420 


sl« $0319 






ND 


550 data 2, 32,147,198, 76, 26,198,201 


'-w£- i_r 

430 


isr Slop 


;scan Slop key 




CL 


560 data 69,208, 6,238, 32,208, 76, 26 


PO 

NF 


440 
450 


bne ■ +5 
imp r>ewrsr 


;nol pressed 

; run/Slop -restore 




HJ 


570 data 198, 201, 71,208,221,238, 33,208 


FM 


460 


di 


; allow keyboard 




BM 


580daia 76, 26,198,169, 4, 32, 95,198 


ME 
HM 


470, 

480 wrIOOp 


jsr wa'llp 


, check keyboard 




OE 


590 data 173, 134, 2,141, 91,198,173, 32 


JA 


490 


cmp #SOd 


. ' carriage reiurn'' 


1 


MK 


600 data 208, 141, 92,198,173, 33,208,141 


JB 
OC 


500 
510 


beq return 

cmp ft'f 


; " command commg'? 




OP 


610data 93,196, 96, 1, 0, 10,122,141 


GL 


520 


bne wrloop 


, no/keep wailing 




PD 


620data 39, 4,169, 47,141, 38, 4,169 


Oi 
JB 


530 

540 


|sr chkcmd 
imp wrloop 


, check command 
,wait tor more 




FF 


630data 32,141, 37, 4, 96,169, 19, 32 


MJ 


550; 








JH 


64adata 95,198,173, 94,198, 16,245,169 


PE 

GH 


560 reiurn 
570 


|sr bTkinl 
imp $lebc 


; restore wedge 
, restore re gs/rti 




OF 


650data122, 141, 94,198, 76, 43,199,169 


KL 


580, 








NM 


660data 16, 32, 95,198,173, 94,198, 48 


IC 

EJ 


590 waillp 
600 


jsr getin 

beq waiilp 


.check keyboard 
; " key pressed'' 




EA 


670data227, 169,255, 141, 94,198,169,122 


OE 


■610 


fIS 






EO 


680data 76, 6,199,169, 0,133,251,169 


CO 

cc 


]620; 
630chkcmd |Sr waitlp 


,getcmmd byte 




JO 


690data216, 133, 252, 169,232,133,253, 169 


UO' 


640 


cmp *"h" 


; " hardcopy? 




NL 


700data219, 133, 254, 160, 0,173,134, 2 


HO 
MJ 


650 

660 


beq hrdcpy 
cmp * " p " 


, ■ pfinier? 




CE 


710data145,251, 32,178,198, 32,190,198 


OB 


670 


beq implab 






MF 


720 data 144, 243, 24, 169, 1, 101, 251, 133 


MP 

MP 


680 
690 


cmp tt'c' 
beq jmplab + 


; ■ colors? 
3 




ED 


730 data 251 , 144. 2, 230, 252, 96, 165, 252 


ED 


700 


cmp #'■' 


; " resets 




AB 


740 data 197, 254, 208, 4, 165, 251, 197, 253 


MS 
PM 


710 
720 


beq jmprab-1- 
cmp #"s" 


6 
, " restore screen'' 




MP 
NH 


750 data 96,173, 91,198,141,134, 2, 32 
760data147, 198, 173, 92,198,141, 32,208 


MD 

JF 

CG 


730 
740 

750 


beq impiab + 

cmp *"d" 
beq pnplab + 


9 

,"delaults? 
12 




MH 


770 data 173, 93,198,141, 33,208, 96, 72 


AA 
IH 

FB 


760 
770, 

780 jmplab 


rEs 


,go Eo wail loop 




IK 


780data138, 72,152, 72, 32,239,198,208 


T * 


jump lable 




LF 


790data 3, 76,137,197, 76,188,254,141 


10 
DL 
GE 


790 
800 
820 


jrTtp prnier 
jmp colors 
imp rscrn 






PF 


eOOdata 4,199,142, 5,199, 32,188,246 






Fl 


810dala 32,225,255, 8,174, 5,199,173 


FE 
OL 

BH 


830 
840. 

850 ne^Tsr 


imp cjelalt 






EC 


820 data 4,199, 40, 96, 0, 0,141, 60 


^ t 


;new slop-resiore 




AH 


830 data 199, 173, 24,208,201, 21,240, 3 


AD 
OG 


860 

870 


jsr $fd15 
jsr $fda3 


;inilial<ze vectors 
;hnil sid/vic reg£ 




JH 


840data160, 7, 44,160, 0,173, 60,199 


LE 


flflO 


jsr Se518 


, resel screen 




DG 


850 data 162, 4, 32,186,255,169, 0, 32 


EB 

Gl 


890 
900 


jsr seidel 
[sr brkini 


,sel delauli colors 
; initial i7e wedge 




LO 


860 data 189, 255, 32,192,255,174, 60,199 


BA 


910 


imp ($a002) 


; basic warm siart 




PO 


870 data 76,201,255, 72,170, 32,201,255 

- ^^ ^^ j_- — — —J- -■- J ^a. ^^ mr 


OA 
HH 


920; 

930 .hrdcpy -- dumps Ihe lexl screen 




OM 


380data169, 13, 32,210.255, 32,204,255 


BF 


940 :to Ihe i 


printer use to save [ 




EO 


890dala104. 76,195,255, 14, 0,255,255 


GB 

GD 
NA 


950 ;lo-res 
960; 

970 open 


graphics, notes. 

= $nco 


eic. 
;open a tile 










HC 


980 dose 


Sftc3 


, close a tile 




LO 


990 circh 


srtcc 


,ser standard i/o 


BREAK KEY 64: Source Code 


NN 


lOOOchkout = $[tc9 


,sei output devjce 




MG 


lOlOsetlfs 


= Sitba 


,se[ liJe parms 




BK 


' 100 ,res!o re wedge — break-time cmds. 


lA 


I020 5etnam - SIfbd 


,sel in parms 




LB 


1 10 ;bv Iranke digioia 


MH 


1030, 








FF 


120,11/19/85 


AG 


1040 hrdcpy = 


;dump screen to prmler 




IP 


130; 


GB 


1050 


Ida #$92 


, normal mode tlag 




HI 


140 . = ScSOO 


AL 


1060 


sia revilg 


.set reverse tlag 




MA 


150, 


JJ 


1070 


Ida #S7b 


,fi1e#l23 




FG 


I60chrouf = Sftrt2 ^pnnlchiJr in a 


FK 


1080 


isr lopen 


.open printer file 




DN 


I70gel(n = S^eA -check keyboard 


BM 


1090 


Idx KSQQ 






NC 


180 cold = Sfce2 .cold ^ysiem resel 


OD 


1100 


sL- Sfb 


, Store screen adr 




ED 


T90, 


Jl 


1110 


Ida ffS04 






OK 


200 Ida *<msg .point to me&g 


FC 


1120 


sia $fc 


,as a pointer 




JJ 


210 Idy #>msg 


AO 


1130; 








LF 


220 |sr $able .piint mesg 


Aj 


1140rwloop = 


;loop over rows 




MF 


230; 


OG 


1150 


Idy #$00 


, reset column count 




OF 


240 brkini fda *<rwdg ,selup nm wedge 


OP 


1160; 








FG 


250 sla $0318 ,nmi veclor 


BJ 1170chloop = • 


;loop over columns 


r 


TheTK 


■ttOCt 


or « 






5ept1W6:V0lum»7,lnu«O2 \ 



jMN 


1180 Ida 


($'b},v 


:gel Chr Irom screen 


GJ 


2080, 








fulD 


2980 


Ida Sfb 


,lii bytes equal so 


DE 


1190 jsr 


chkmde 


, " normal or reverse'? 


FK 


2090 


cmf 


1 #"g" 


, "(back) ground'^ 


PL 


2990 


cmp Sfd 


;low bytes get to 


KA 


1200 jSf 


decode 


.screen code to ascii 


MC 


2100 


bne 


zioop 


; no/must be typo 


EJ 


3000 


rts 


.make the decision 


NN 


1210 |sr 


oh rout 


,prLnl Ihe char 


OK 


2110 


inc 


Sd021 


,inc bchgrnd color 


ID 


3010, 






EF 


1220 )sr 


Stop 


.scan Slop key 


OG 


2120 


jmp 


^ioop 




IF 


3020 seldef 


Ida d1 


;defauff Ie«l col 


KL 


1230 beq 


hend 


,yes/f<nish up 


IM 


2130; 








BA 


3030 


sia $0286 


,sel lexl color 


IL 


1240 iny 






JB 


21 40 ;/d command (sei defaults) 


BF 


3040 


jsr chglxi 


;filf color mem 


BF 


1250 cpy 


^S28 


;'40lh column yet^ 


fVlN 


2150; 








NF 


3050 


Ida d2 


, default edge color 


HC 


1 260 bcc 


chloop 




LE 


2160 desalt 


= 


' 




DO 


3060 


sia Sd020 


;sef bordei color 


MG 


1270: 






OF 


2170 


Ida 


*$04 


, code for d" 


LO 


3070 


Ida d3 


; default ground color 


LC 


12e0eoirf 


p 


lend Ol physical fine 


BJ 


2180 


|sr 


ou tput 


; print il 


IM 


3080 


sta $d02i 


,sei background col 


NG 


1290 tda 


#$0d 


, carriage return 


DM 


2190 


Ida 


10266 


;gef Lex! color 


OP 


3090 


rte 




LP 


1300 |SF 


oil rout 


.output II 


GN 


2200 


sta 


di 


,save il 


CJ 


3100, 






LK 


1310 Ida 


revtfg 


.get last mode value 


PE 


2210 


Ida 


Ed 020 


gef edge color 


f^M 


3nobri<2 


= ■ 


,user break 2 


GC 


1320 i^r 


chroul 


;set the mode 


MO 


2220 


sia 


d2 


,sav@ Il 


GA 


3120 


pha 


,save regs 


KP 


1330 Ida 


$fb 


, update screen pomier 


Gl 


2230 


Ida 


Sd021 


,get groundcolor 


00 


3130 


txa 




CL 


1340 cic 






CA 


2240 


sta 


d3 


,save il 


AM 


3140 


pha 




PM 


1350 adc 


#S28 


:lo next row 


BO 


2250 


rts 




■ihai's all folks 


FA 


3150 


lya 




MG 


1360 sfa 


Ifb 




KE 


2260. 








EN 


3T60 


pha 




OK 


1370 bcc 


.+4 


; ■ need to incr hi byte'' 


MM 


2270 d1 


.byte £01 




IN 


3170, 






FG 


1380 inc 


Sfc 




GN 


2280 d2 


.byte 100 




fVlP 


3180 


]Sr Slop 


;scan stop key 


ID 


1390 inx 




:incr row counter 


GB 


2290 d3 


,by1e SO a 




Al 


3190 


bne - + 5 


;not ptessed/continui 


GJ 


1400 cpx 


*$19 


;' 25th row yet? 


IB 


2300 pf lag 


byle E7a 




ON 


3200 


rmp newrsr 


, pressed' warn^ reset 


KO 


1410 bcc 


rwloop 




MH 


2310, 








KK 


3210 


imp Stebc 


;resTore regsS rti 


CA 


1420; 






GA 


2320 loufpuf 


subroutine 




KA 


3220. 






PK 


1430hend 


' 


;finishedi 


AJ 


2330. 








JE 


3230 stop 


sta areg 


^save .a in memory 


OH 


1440 |Sf 


circh 


; restore normal i/o 


LK 


2340oufpuL 


= 


+ 


.echo command 


GH 


3240 


stx xreg 


.save . " in memory 


KC 


1450 , Ida 


tf$7b 




CL 


2350 


sta 


$0427 


.corner of screen 


MO 


3250 


jsr Sf6bc 


;sel slop f Jag 


FE 


1460 imp 


Iclose 


.Close printer 


ID 


2360 


Ida 


ffS2f 


; slash code 


AG 


3260 


|sr Sffel 


;read slop Hag 


ED 


1470; 






FM 


2370 


sia 


S0426 


; corner of screen 


BO 


3270 


Php 


;save status word 


oc 


1480revrig' byfeS92 




KO 


23eo 


Ida 


*S20 


; space code 


LJ 


3280 


idn xreg 


,get utack 


IE 


1490. 






IN 


2390 


sia 


S0425 


, corner ol screen 


GN 


3290 


Ida areg 


,get a back 


IE 


1500 :decode -- Ihis routine converts 


EP 


2400 o-dr 


rts 




,aif donei 


FC 


3300 


pip 


,get status word 


KE 


1510 ,a character from ils screen 


AO 


2410. 








KN 


33t0 


rts 




HE 


1520 .code representalron to, 


3SC1I. 


EH 


2420 ./s command (output to screen) 


OG 


3320; 






KE 


1530 ,this IS copied direclly from 


EP 


2430. 








FJ 


3330 areg 


byle SOO 




GF 


1540 ithekernal rom aL Se63e jcursor 


FO 


2440 rscrn 


= 


t 




NM 


3340 xreg 


byte SOO 




LB 


1550 ,s(ufl rernoved] 




BL 


2450 


Ida 


#$13 


icode'or 's' 


Ml 


3350, 






01 


1560, 






AM 


2460 


JSI 


outpul 


;echo command 


EM 


3360, lopen 


— this routine opens a 1 


UO 


1 570 decode = 


' 


, screen code to ascii 


MH 


2470 


Ida 


pflag 


, ' prtr>ier online'* 


LB 


3370 .tile to the printer ffile no 




FH 


1580 sia 


Sd7 


, store code 


GA 


24B0 


bpl 


oxit 


,no/don'f bother 


DJ 


3380 ,is in a on entry). Ihe 




CJ 


1590 and 


ll%3i 


, mask out [Qp2 bits 


AC 


2490 


Ida 


#S7a 


;liJerfl22 


MM 


3390 .printer is opened lo whichever 


PK 


1600 asl 


Sd7 


;mulfcodeby two 


MJ 


2500 


sia 


ptiag 


:set flag/ofiiine 


CO 


3400 , mode the screen IS kn i 


e it 


LC 


1610 bn 


$d7 


.condiiion Hags 


GH 


2510 


jmp 


IcJose 


^otose Jt up 


DO 


3410 , the screen is in the uppercase/ 


IK 


1620 bpl 


. + 4 


/bi(7clear'? 


GE 


2520. 








FB 


3420 ;lowercase mode, the printer 


CL 


1630 ora 


#$80 


,no -setbii7in a 


ED 


2530 ,/p command (ouipul to printer) 


AM 


3430 ;wilf be also the same applies lo 


NM 


1640 bvs 


. + 4 


, " bil 6 SG\'> 


CO 


2540, 








BE 


3440 , uppercase/graphics mc 


jde. 


JP 


1650 era 


#$40 


.no- selbi(6 


MA 


2550 prnfer 


= 


+ 




AP 


3450; 






BH 


1660 rts 




,ascii code now in a 


HA 


2560 


Ida 


#S10 


;codetor p' 


FK 


3460 lopen 


= ■ 


:open a printer tile 


MP 


1670. 






OC 


2570 


|sr 


oulput 


,echo command 


KMi 


3470 


sta Itn 




AP 


1680 ,chkrnde -- checks on normal or 


KG 


2560 


fda 


pHag 


. "printer online'' 


KE! 


3460 


Ida $d018 


which char selprint 


KF 


1690 .reverse & sen 


dscode to priolef 


AE 


2590 


bmi 


Oiil 


, yes/don't bother 


HL 


3490 


cmp #21 


, u p pe rcase'graph ic s 


KB 


1700, 






OB 


2600 


Ida 


ffSfl 


,sel printer online 


GC 


3500 


beq ug 




OH 


I7l0chkmde pha 




:save screen code 


FH 


2610 


sta 


pfiag 


; set flag 


NO 


3510 


Idy #$07 


;sa for printer (u/i) 


CP 


1720 Ida 


levtlg 


. " what mode current^ 


CK 


2620 


Ida 


#S7a 


,hle^l22 


BA 


3520 


byle E2c 


;skip next insir 


FM 


1 730 bmi 


nermal 


,norn-ial mode/skip 


LI 


2630 


imp 


lopen 




Ml 


3530 ug 


Idy #S00 


,sa for upper/graphic 


EM 


1740 pla 




; retrieve screen code 


GM 


2640, 








CN 


3540 


Ida Itn 




LO 


1750 bmi 


chkx 


, reverse/no sweat 


MD 


2650 ,iejif color subroutines 




EK 


3550 


Idy #4 


.ft tor serial pnnier 


OC 


1760 pha 




.save code again 


KN 


2660, 








CL 


3560 


|sr setl^s 




JE 


1 770 Ida 


#$92 


, normal/kill rcvoise 


HM 


2670 colrst 


c 


SdBOO 


; start color mem 


FB 


3570 


Ida #SO0 




ID 


1 780 hcl sia 


revfig 


, Toggle flag 


CJ 


2660 colrnd 


= 


SdbeS 


:end color mem + 1 


NL 


3560 


jsr setnam 




PE 


1 790 |sr 


Chrout 


,prpnnhecode 


IP 


2690. 








PA 


3590 


jsr open 


; system open routine 


M( 


1S0O pla 




, restore screen code 


BC 


2700 chgiM 


Ida 


ff<colrst 


,5et upadr 


PD 


3600 


Idx Ifn 


, gel fife number 


AO 


1810 chkn rts 






ND 


2710 


sfa 


Sfb 


ipointer for atari 


BD 


3610 


jmp chkouf 


.open output channe 


CJ 


1820: 






JL 


2720 


Ida 


#>colrst 


, and end of color 


KJ 


3620, 






GG 


I830nermal pla 




;gef screen code 


CP 


2730 


sfa 


Ifc 


,m<?moryfor hll. 


EK 


3630. 






CB 


1840 bpl 


chkx 


;normaiyno sweat 


MG 


2740 


Ida 


#<colrnd 




NC 


3640 .IcJoso 


- routine to close 


a 


II 


1850 pha 




,save code again 


AO 


2750 


sta 


Efd 




JG 


3650 Jile to the prrfhier filenum | 


Al 


1860 Ida 


#S12 


,rev/switoh mode 


MH 


2760 


Ida 


rf>colrnd 




HK 


3660 ,in .a upon entry. 




FC 


1870 bne 


hcl 


jlinish up 


HP 


2770 


sta 


Sfe 




MM 


3670. 






OM 


1880; 






CF 


2780, 








HI 


3680 Iclose 


^ ■ 


; dose a printer file 


ED 


1890 ,/c comrriand (colors) 




OG 


2790 


Idy 


#$00 


, y IS always zero 


LD 


3690 


pha 


: save file number 


CO 


1900, 






GG 


2800; 








NH 


3700 


lEUc 


;gei tile n urn Per in k 


CE 


1910 colors Ida 


tf%03 


;code ior c' 


AN 


2810dloop 


Ida 


$0286 


;get texf color 


FP 


3710 


jsr chkout 


:open the channel 


PB 


1920 |sr 


ourput 


,pnn[ command name 


EL 


2820 


sta 


(Stb).y 


Jill color memory 


LO 


3720 


Ida #$0d 


, carriage return 


GB 


I930zloop isr 


wairip 


.waif for key 


JB 


2630 


jsr 


irictrr\{ 


;incremeni Ifb/Sfc 


PF 


3730 


jsr chrout 


,send (0 pnnier 


AE 


1940 cinp 


#$0d 


. ■ return^ 


NK 


2840 


jsr 


chek 


.compare star Vend 


KK 


3740 


jsr circh 


; re set standard i/o 


JG 


1950 bne 


■ +3 


, no/keep going 


FP 


2850 


bcc 


cfloop 


. " end reached yel? 


NJ 


3750 


pla 


;gel file number 


EJ 


1960 m 






CK 


2860. 








PE 


3760 


jmp close 


,dose the fjle 


IC 


1970; 






FK 


2e70incrml 


cic 




, 16 bi increment 


AD 


3770; 






AK 


1980 cmp 


#"i" 


;'te^t? 


LO 


2eeo 


Ida 


*E01 


;incremenlof 1 


KF 


3780 ffn 


byte SOe 




CO 


1990 bne 


- + 11 


.no/check on edge 


AH 


2690 


adc 


Sfb 


increment lo byte 


EE 


3790. 






CN 


2000 inc 


$0236 


jnc texi color 


KC 


2900 


sta 


Ifb 


.update II 


EL 


3800 end 






HP 


2010 jsr 


chgtxt 


.change (exi cobi 


FP 


2910 


bcc 


>+4 


, ■ increment hi byte? 








KA 


2020 imp 


zioop 




JG 


2920 


inc 


$tc 










EG 


2030, 






OF 


2930 


ris 












GE 


2040 cmp 


#"e" 


. ■ edge (border)? 


CP 


2940- 














MO 


2050 bne 


. + 8 


.no/check on ground 


PN 


2950 chek 


Ida 


$fc 


icompare I6bn #'s 








CN 


2060 inc 


Sd020 


.mo border color 


HJ 


2960 


cmp 


$fe 


:compare hi byfes 








Imd 


2070 imp 


zIoop 




PJ 


2970 


bne 


- + 6 


,'nuH said/return 
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MOVE: 

A General Purpose 



Propagating Move Routine 



R. J. de Graff 
Winnipeg, Manitoba 




As documented in a previous issue (July 85 Bits & Pieces), the 
built in memory move routine can be used to move blocks of 
memory hilher and yon. Unfortunately, the page locations 
that must be primed are also used by BASIC. Therefore, to use 
this routine from within a BASIC program requires that a front 
end be built to copy the parameters from user selected ad- 
dresses to those used by the move routine. 

Rather than do this I decided to write my own move routine, 
MOVMEM. This routine resides in the ever popular cassette 
buffer and is a mere 37 bytes long. Its parameters are poked 
into page locations 25-30. The calling program specifies 
source address start, destination address start and the number 
of bytes to copy (all in low byte/high byte format). 

MOVE is fast. It also has the advantage of being able to perform 
wha^ is known as a propagating move. More on that in a 
moment. For now, let's look at how MOVE can be used from 
BASIC. One example that comes to mind is moving BASIC from 
ROM into the underlying RAM so that it can be modified. 
Typically this is done by the loop; 

100 fon = 40960 TO 49151 
105 poke i,peek{i) 
110 next i 
115 poke 1.54 

Timing this loop we find it takes 37 seconds to execute. Now 
let's see how ihe same thing is done using MOVE. For the sake 



of clarity I will define two functions FNH and FNL that break up 
a 16 bit integer into high and low bytes suitable for poking- The 
parameters for MOVE are as follows: 

BYTES 25-26 source address [low/high) 
BYTES 27-28 destination address (low/high) 
BYTES 29-30 number of bytes (low/high) 



100 
105 
110 
115 
120 
125 
130 
135 
140 
145 



def fnh(x) = int(x/256) 
def fnl(x) - X - 256 * fnti(x} 

r 

bs = 40960 . rem basic start 
nb = 8192 : rem length of basic 



poke 25, Inl(bs) 
poke 27, fnl(bs) 
poke 29, fnl(nbj 
sys 828 



poke 26, fnh{bs 
poke 28, fnh(bs) 
poke 30, fnh{nb) 



While this requires more code it executes in less Ihan one 
second. If the move is to be done frequently (copying bit maps 
in hi-res mode for example) then the grunt work can be moved 
into a subroutine such as the following; 



900poke25,fnl(sa) 
905poke27,fnl(da) 
910poke29,fnl(nb) 
91 5 sys 828 return 



poke 26, fnh(sa) rem source address 
poke 28, fnh(da) :rem destination addr 
poke 30, fnh(nb) .rem number of bytes 
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Jusi don't forgel to define FNH and FNL, 



Program Listing (Commodore Assembler) 



As I mentioned earlier, this routine can be used to 
perform a propagating move. Tfiis lype of move 
results when the destination address is one more than 
the source address. For example, let's say we want to 
clear out an area of memory 1 000 bytes long to use for 
a hi-res bit map. Assuming that BM contains the 
address of our bit map, this is accomplished by the 
following: 

200 poke bm.O 

205 sa - bm: da = bm + 1 ; nb = 999: gosub 900 

Fast and painless. Exactly what has happened? The 
bytes were copied as follows; 

SA + copied to SA + 1 (which is DA) 
SA+1 copiedloSA + 2(DA+l) 
SA + 2topied!oSA + 3 



= 828 



SA + 999 copied to SA + 1 000 

The zero value poked in line 200 was propagated all 
through the 1000 bytes. 

This is a side effect not possible with the built in 
routine due to the algoritfim used. The built in routine 
copies blocks in the order byte then bytes 255 to 1 
whereas MOVE copies bytes in the order 0, 1, 2_ . . 
255. Assembler source and BASIC loader follow. 



srce 


= 25 


desl 


= 27 


nbytes 


= 29 


nblks 

* 


= nbytes 


1 

move 


Ida nblks 




beq donebl 




Ida '0 


start 


sta remain 


* 


Idy *0 


nxtbyt 


Ida (srce),y 




sta {dest},y 




iny 




cpy remain 


¥ 


bne nxtbyt 


> 


inc srce+l 




inc dest + 1 




dec nblks 




bmi done 


* 


bne nxtbyt 


1 

doneb da nbytes 




bne start 


done 


rts 


remair 


1 " = -^ + 1 



iparameter - location of srce address 
;parameter - location of dest address 
;parameter - location of number of bytes 



nbytes -I- 1 ;number of full blocks to move 



get number of full blocks to move 
if none then test for partial block 
set compari.son value for transfer 
256 byte blocks (0-256) 
set index to point to first byte of block 

;get next source byte 
;slore at next destination slot 
;set index to point to next byte 
;compare to remaining bytes value 
;il not all moved then do next byte 

jincrement srce address by one block 
;increment dest address by one block 
;decrement number of full blocks to move 
;if minus then we are done all bytes 
;if positive we have more blocks to do 

do we have a partial block 
if yes then move it 
return to calling routine 

;number of bytes to move in current block 



BASIC Loader Subroutine 

900 cs = 

905 for i = 828 to 864 

910 read b ; poke i,b ; cs = cs + b 

915 next! 

920: 

925 if cs <> 4327 then print " cfiecksum error " 

930: 

935 data 165, 30,240, 

940 data 96, 3, 160, 

945 data 27,200,204, 

950 data 230, 26,230, 

955 data 6,208,236,165, 29,208,227 

960 data 96 

965: 

970 return 



: slop 



27, 169, 0, 141 
0,177. 25.145 

96, 3. 208, 246 

28, 198, 30. 48 



Editor's Note 

MOVE works great for moving of! sorts of stuff; sprite 
definitions, coiour memory, low-res screen data, or even 
snapshots of zero-poge and the like. And. as mentioned 
in News BRK, fee! free to use any subroutine pubfisfted in 
The T. in any program, anytime, Qfiywfiere. and for any 
purpose. 04. Ed. 
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Bit Addressing 
Of Sprite Controls 



Stacy Mclnnis 
Upland, California 



One good reason to switch from BASIC to assembly language 
programming is to increase the speed with which you can move 
and change your sprites. An added advantage is the ease with 
which you can do bit manipulations. Several of the locations that 
control sprites must be addressed at the bit level. Among these are 
tDOlO which contains the most significant bits of IheX positions of 

your sprites on the screen and $D0I5 which controls the enabling 
and disabling of individual sprites. Each byte that contains sprite 
information for all the sprites is arranged in the same order. Sprite 
zero is represented by the least significant or rigtit most bit while 
sprite seven is represented by the most significant or left most bit. 
As there are eight sprites allowed and eight bits in a byte, this 
works out very nicely. 

Looking at the 6510 microprocessor instruction set, it is clear that 
there are no instructions that will let you address any selected bit 
with a single instruction. However, a combination ot these instruc- 
tions can be used to do the job. But first, let us define some data. 
Find sixteen locations that you will not be disturbing and dedicate 
(hem to holding masks. A mask is a number that lets you use 
masking tape to prevent painting beyond your desired area. Our 
mask will be set up to allow the changing or testing of a single bit 
wilfiout disrupting the otlier bits in a byte- 



Example Of Defining Mask 

; The first mask array will be used with the ORA instruction to turn 
a bit on 



maskor = * 
.byl $01 
byt $02 
byt $04 
byt $08 
byt $10 

byl $20 
byt $40 
byt $80 



bits 0000000 1 
bits 00000010 
bits 00000 1 00 
bits 00001000 
bitsOOOlOOOO 
bitsOOiOOOOO 
bits 01000000 
bits 10000000 



sprite 
sprite 1 
sprite 2 
sprite 3 
sprite 4 
sprite 5 
sprite 6 
sprite 7 



; The second mask array will be used with the AND instruction to 
turn a bit off 



maskan = * 

.byt $fe 
-byt $fd 
.byt $fb 
.byt $f7 
.byl $ef 
.byt $df 
.byl $bf 
.byt $7f 



bitslllllllOspriteO 
.bits linilOl sprite 1 
bitsllinOll sprite 2 
bitsUnOlllspriteS 

bitslllOllll sprite4 
bits 11011111 sprites 
bttslOlllUlspritee 
.bilsOlllllH sprite? 



Now, let us try the simple task of enabling Sprite 2. To enable sprite 
3, set bit 3 of location $d015 to L 



Idx -3 
Ida $d015 
and maskan, X 

sta $d015 



;x contains a 3 

;the sprite enable register 

;use $f7 so no bits are altered except bit 

3 

;reset the register and enable sprite 3 



But why write all that code with the masks and indexes? If you 
want to enable sprite 3, why not just write; 

Ida $d015 
ora *$08 
sta $d015 

Certainly this would be the better way to enable a single sprite. But 
in most instances the same code is being executed for several 
sprites and so it is desirable to use indexing. 

Now for a complex example. Assume you would like to expand 
multi-colored sprites horizontally. You also want to disable high- 
resolution sprites. But you only want to do this for sprites 2 to 7. 
Sprites and 1 are to remain untouched. 



loop 



Ida "5 

4. 



;6 sprites total 



Ida SdOlc ;lhe multi color register 

ora maskor + 2,x ;select only bit to consider 
beq maskor ;zero is to be disabled 

if here is multi-color so expand it 



ora $d01d 
sla SdOld 
bne eloop 



; horizontal expansion 
; reset expansion 
;always branch 



are here if have a single colored sprite to be disabled 



dable = 



Ida maskan + 2,x ;select mask 

and $d015 ;the enable/disable register 

sta $d015 ;reset register with sprite disabled 



1^ # 



eloop ^ 
dex 
bpl loop 



; index to next mask 

;loop until sprites 7 to 2 are tested 



Another instruction that works well with mask is the EOR. Assume 
that you wish to horizontally expand a sprite if it is unexpanded or 
unexpand if it is expanded. In other words, whatever the bit is, we 
want to change it. Again, the sprite to be changed is in register X. 



Ida $d01d 
eor maskor,x 
sta $d01d 



;the horizontal expansion register 
ichange the bit 
;resel register 



If you are writing software that is sprite intensive, your ma,sks will 
be well worth the sixteen bytes you took to define them. 



lTMll<an«octor 



56 



Sept 19fl6: Volume 7, Isma 02^ 



Sprite Numbers 



James A. Lisowski 
S, Milwaukee, Wisconsin 



A painless way to flash numbers on text or graphics screens. 



The sprite number technique is potentially useful for just about 
any program that needs a numerical display. Normally, sprites 
are made into graphic shapes for use as game markers or other 
indicators and require some drawing to deiine the sprite's 
shape. The demonstration program presented here will take a 
three digit positive number and create a sprite that displays the 
same value - without any drawing on your part. What's so great 
about a sprite number? Weil, first of all the sprite can be a 
colour that is different than the existing foreground and back- 
ground. A sprite can also appear in front or behind an existing 
text or graphic display, including a high resolution screen - 
without altering it. Of course, the sprite number can also move 
anywhere around the screen as fast or slow as desired. The 
sprite number could also be flashed on and off or in different 
colors to capture attention. And, best of all, the sprite number 
can be expanded to twice the size of normal text characters. 

II those features don't give you any application ideas, here are a 
few suggestions: Sprite numbers make great action game score- 
cards. For example, when that big ship gets hit by your laser, a 
sprite number can be placed right next to the hit to show the 
bonus points scored. With extra programming, you could make 
the number fade in, break up or flash. If you need an X / Y 
position display for that hi-res drawing program, sprite num- 
bers will do the job without changing your drawing or taking up 
space. Likewise, a digital clock made of sprites won't disrupt 
your wordprocessing. If your application includes process con- 
trol, an out of range sensor reading can come into view at any 
time. If you want lo get fancy, the sprite can be part number and 
part graphic - say a digital display and a bar chart representa- 
tion of the same value, for ease of viewing and precision. Tm 
sure you can think of many more uses for sprite numt>ers. 
Although my program does have REMarks. I'll explain the 
program, line by line, so that anyone who needs sprite num- 
bers can understand how they are made and used. 

All of the lines before line 500 just do some initial set up work; a 
sample mainline program covers lines 500 through 760 and 
the actual sprite number subroutine occupies lines 900 through 
1270- The example uses sprite number zero for number dis- 
plays, of course, any sprite will work just as welL Here is how 
the demonstration program works; 

Line 30 makes variable VS equal lo the address of the VIC II 
graphic chip's first register so that any register may be selected 
by adding an offset value VS (eg. VS+16 selects register 16). 
Lines 30 and 40 create variables {SX, SY, SN), that correspond 



to sprite zero's horizontal and vertical position control registers 
as well as the register that controls whether the sprite is visible 
or not, the enable register. These variables are used often 
enough to merit special names. Line 60 tells VIC 11 to look for 
the shape information for sprite zero in the 13th area reserved 
for sprite shapes. (In the normal VIC II configuration, area 13 
runs from decimal location 832 lo 895.) If this number is 
changed to another value and the corresponding shape area is 
filled with a number shape, one sprite can be used to display 
several predefined sprite numbers, each one switched in by 
changing the shape area number in location 2040. Line 90 
expands the size of sprite in the X and V dimensions for 
emphasis. If this line were not present (or if the one values were 
changed to zeros), the sprite numbers would be the same size 
as the normal characters, but when they are expanded to twice 
the normal size, they really stand out. With various combina- 
tions of one and zero, the sprite numbers can also have other 
height / width ratios. 

OK, so far the program has done some fairly normal sprite 
operations. Now comes the tricky part: stealing the dot patterns 
that make up a number shape from the 64's character ROM. In 
most computers, the character ROMs can only be read by the 
computer's video circuitry. !f you wanted to use or alter the 
character shapes, you would have to draw the patterns and 
then duplicate them as one and zero (video dot on and off) 
patterns for your program's use. This is not only tedious but it 
also uses much of BASIC program memory just to store charac- 
ter patterns- The Commodore 64 has two very nice features 
that can be used to overcome these problems. One feature is 
that the microprocessor and the VIC II video chip can directly 
read the contents of the character ROMs; the other feature is 
plenty of RAM memory to store user defined character sets 
without using up BASIC program space. Here's how my pro- 
gram takes advantage of these attributes: 

Lines 130 and 142 turn the usual timekeeping interrupt OFF 
for a while and switch the character ROM into the microproces- 
sor's normal address space so that the number patterns can be 
read directly. (If the interrupt routine is not switched off, the 
computer will "freeze up" and not respond to normal com- 
mands because the routine doesn't allow for the character 
ROM's presence.) A side effect is that, since the interrupt 
routine normally updates the system real-time clock, (the time 
value found in variable TI$), this time value will not be correct 
and will " lose time - as long as the interrupl routine is turned 
off. When switched in. the character ROM appears at location 
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53248, Since each pattern takes up eight bytes and the number 
patterns start at the 48th character position. Line 160 sets 
variable CS to the starting address of the ROM's number 
patterns. Line 180 sets variable CM to a value that corresponds 
to a section of high RAM memory that BASIC never uses. Line 
210 reads 80 bytes (the 10 number patterns) from ROM and 
stores them in the high RAM area for later use. Lines 230 to 240 
finish the procedure by switching the ROM out and turning the 
interrupt routine back on. Line 310 blanks out any old data in 
the the sprite shape memory area to complete the set up 
section. 

The demonstration mainline starts on line 530, This is a short 
program that shows how to use the sprite number subroutine. 
In normal use, you would keep the set up and subroutine 
sections and create your own application mainline. Line 530 
makes sure that the MSB (Most Significant Bit) of the sprite's X 
position is off, so that the sprite travels on the left side of the 
video screen. Line 560 sets the sprite's X/Y initial screen 
position. Line 590 clears the screen and prints a title in normal 
text characters. Lines 620 and 650 generates random colors 
and threedigit number values (NU) for the sprite. Line 700 calls 
the actual sprite number subroutine. Lines 740 and 745 move 
the finished sprite number horizontally across the screen to 
show off a bit. then disables (turns off) the sprite, resets the X 
screen position and goes back to the random number / color 
section to start over with a new sprite. Occasionally you won't 
see the sprite because it is the same color as the background. If 
you wish you can change the mainline to make the sprite move 
jn the Y direction or over some text background. 

Finally, here is what the sprite number subroutine does: Line 
1000 disables (turns off) the sprite so that the transition Irom 
one number pattern to the next is invisible. (If you want to 
watch the process change the zero in Line 1000 to a one.) Line 
1030 blanks out the old sprite pattern. Line 1070 formats the 
number (NU) to become a sprite. First the number is changed 
into string format with the STR$ function. Since the random 
number string's length can range from two characters {a space, 
because it is a positive number, and one digit), to four charac- 
ters (a space and three digits), a space is added to the right side 
of the number siring and the right-most three characters of this 
total combination are extracted with the R1GHT$( ,3} statement. 
This operation will always yield a three character string, with 
leading spaces and place it into variable NU$, Now that the 
number string has been put together properly, the next opera- 
tion is to take it apart again! 

Line 1 1 30 starts a FOR / NEXT loop that selects the characters, 
one by one. Also a counter, IN, that will be used later is reset to 
zero. The M1D$ function in Line 1140 extracts one character 
from NU$ and places it into CHS. The first time through the 
loop, the left-most character is selected, then the middle 
character and then the right-most character, according to the 
position value (CH + 1). To save time, since the sprite has been 
cleared to a blank state, if the extracted character is a space, no 
further processing is done and Line USO directs program 
execution to the NEXT statement in Line 1230. Other^vise, the 
extracted digit character is changed back to number form with 



the VAL function and placed in ND. ND will be used as an index 
to the proper starting position of that digit's character pattern. 

The FOR loop in Line 1200 steps the variable 1 through eight 
values that correspond to eight bytes in the sprite's shape 
memory. Sprite shape memory is linear, but the resulting sprite 
is displayed in a format where three pattern bytes lie side by 
side. The STEP index of 3 in Line 1200 places the eight dot 
pattern bytes so that they all line up in the same vertical 
column. Also in Line 1200 the variable CH (which changes 
value from zero to one as the FOR loop in Line 1130 pro- 
gresses) offsets the sprite shape memory value so that the first 
character pattern goes into the first sprite display column, the 
second digit pattern goes into the middle column and the right 
digit pattern goes in the right-most sprite column. This is 
definitely not your average FOR / NEXT loop but it does work! 
Line 1210 takes this sprite shape memoiy position (I) and fills it 
with a byte of the proper character paUern from the high RAM 
storage area. To figure out which byte to take (PEEK), the start 
of high RAM number pattern storage (CM) is added to the 
starting position of the desired digit {ND*8, the NDth digit 
position times eight pattern bytes per digit) plus the index IN 
which steps through (iN = IN + l). the eight sequential pattern 
bytes that make up the digit shape. Thus the result of Lines 
1200 through 1220 are that the desired digit pattern is taken 
out of high RAM and placed in the proper position in the sprite. 
The NEXT statement in Line 1230 directs program execution 
back to the FOR statement in Line 1 130 which then selects the 
next digit character to be loaded into the sprite (and resets 
index IN), until all three string characters have been processed. 

At this point the sprite number has been built, but the sprite is 
still invisible. Line 1270 enables the sprite and RETURNs 
execution back to the mainline program. As outlined above, 
the mainline merrily moves the new sprite along then goes 
back and creates a new random sprite number. If you've 
followed all of these math and logic brain twisters you must 
now think that computers are pretty wonderful and that pro- 
grammers ARE CRAZY! However, if you are still feeling like an 
experiment or two might clarify the operation of this demon- 
stration. 1 would suggest: 

1) changing Line 1000 to: 1 000 POKE SN,1 (so that the sprite is 
enabled and you can see what is happening) and 

2) sprinkle in a few PRINT statements that wil! show the values 
of those obscure variables. 

When you are done with that, here are a few other things to 
ponder. First of all, it you want, you can dispense with copying 
the character patterns to high RAM and just take them from the 
character ROM each time they are needed. But remember, the 
real-time clock loses time each time you disable the interrupt 
and if anyone ever hits RUN / STOP while the program is 
gathering patterns, the next button to press is ON/OFF (or 
RESET if you have it). 

Another note is that this routine does not use the entire sprite. 
There is still room in the bottom portion of the sprite to place a 
second set of three digits, {If you want to see this area change 
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the zero in line 310 to 255.) If you want to add the second 


AJ 


540: 


number to the sprite just call the subroutine twice and add an 


JP 


550 rem set sprite x/y position to 100 


offset to [ in Line 1 2 ^ to place the second pattern a little lower 


ID 


560 pokesx,100:pokesy,100 


in the sprite. Used this way, a dual number sprite makes a 


OK 


570: 


useful X/Y position readout for your hirez drawing program or 


HN 


580 rem clear and title the screen 


a two player scorecard for your favorite action game. The only 


HF 


590 print "Ssprite number demo 1234567890'' 


limitation to two-in-one sprite numbers versus two separate 


MM 


600 


sprite numbers is that both numbers have the same color in the 


PL 


61 rem set sprite random sprite color 


former case but can be different colors in the laUer. 


PD 


620 pokevs + 39, rnd(O)- 1 5 


- 


KO 


630: 


One other drawback for fast changing programs, is that all the 


KG 


640 rem get a 1 to 3 digit positive # 


math makes for a slow routine. Compiling and integer variables 


DF 


650nu = int(rnd(0)*999) 


will he p but the fastest routine would be pure machine lan- 


tA 


660: 


guage. And that, as they say in computer class, is left for the 


CM 


670 rem goto the sprite subroutine, 


reader as an exercise. 


KJ 


680 rem turn number nu into a sprite 




HM 


690 rem and disp ay it in motion 


The Sprite Numbers program with demo 


JL 


700 gosub 1000 






F 


KD 
LM 


710: 

720 rem wait a wtii e, then try anotfier 




JL 


1 rem sprite number demo v4 




NK 


2 rem James a. lisowksi, 902 willow In. 


OB 


730 rem number 




DN 


3 rem s. mi waukee, wi 53172 


CK 


740 ford = 1 000to2000step5:pokesx,d/1 




BO 


4 rem public domain software 


IN 


745nexfd.pokesn,0:pokesx,100:goto610 




JH 


5: 


CO 


750: 




PK 


1 rem set up sprite zero 


OD 


760 rem = = = = = end of mainline = = = = 




II 


20: 


GH 


770: 




II 


30 vs = 53248:rem first vic-ii register 


Al 


780: 




KF 


40sx = vs:sy = vs+ 1:rem sprite x/y reg. 


JL 


900 rem sprite number subroutine 




EB 


50 sn = vs + 21 :rem sprite enable reg. 


CA 


910: 




Ml 


60 poke2040,13:rem sprite mem area 13 


FC 


920 rem — turn the sprite off 




DM 


79: 


DN 


1000 poke sn,0 




LK 


80 rem remove rem in line 90 for 


GG 


1010: 




AO 


82 rem un-expanded character size 


DM 


1 020 rem clear part of sprite 




IJ 


90 pokevs + 29,1:pokevs + 23,1 


FB 


1 030 fori - 832to852:pokei,0:nexti 




N 


100: 


El 


1040: 




OK 


1 1 rem set up number patterns 


ML 


1 050 rem make nu a string 3 characters 




MO 


120: 


NJ 


1060 rem in length with leading spaces 




MG 

1 


130 rem turn interupt off, switch rem in 


HK 


1070nu$ = right$('' " +str${nLi),3) 




KP i 


140 poke56334,peek(56334)and254 


MK 


1080: 




OL 


142 pokel ,peek(1)and251 , 


BA 


1090 rem— select the 3 digit 




FA 


145; 


NJ 


1 1 00 rem characters, one at a time 




AP 


150 rem start of rem number patterns 


KF 


1 110 rem and change the character into 




AH 


160cs = 53248 + 8«4B 


NF 


1 1 20 rem a number nd, skip spaces 




Al 


1 70 rem start of ram storage area 


JM 


1130 for Ch = 0to2:in=0 




IC 


180 cm =49152 


GG 


1140ch$ = mid${nu$,(ch + 1),1) 




NO 


1 90 rem take cfiaracter info from rom 


01 


1150ifch$= " "then 1230 




FJ 


' 200 rem and p ace in into protected ram 


MC 


1160nd = val(ch$) 




EC 


: 210 fori =OtoaO:pokecm + i,peek(cs+i):next 


GE 


1 1 70 rem — get the character pattern for 




DA 


: 220 rem turn interupt on, switcfi rom out 


Dl 


i 1 1 80 rem this number and place it in 




IL 


230 pokel ,peek(1)or4 


FL 


1 1 90 rem the proper sprite memory area 




00 


240 poke56334,peek(56334)or1 


AP 


1 200 for i = (832 + ch)to(855 + ch)step3 




OG 


250: 


IM 


I 1210 poke i,peek(in + cm + nd*8):in = in + 1 




BD 


300 rem clear sprite pattern 


DK 


' 1220 next i 




IH 


310 fori = 832to894:pokei,0:next 


LL 


1 230 next ch 




EL 


320: 


■ ME 


1240: 




OL 


330: 


HA 


1 250 rem — turn finished sprite on and 




BF 


500 rem = = = = demo mainline = = = = 


OF 


1 260 rem return to main program 




CH 


510: 


JM 


1270 pokesn,1:return 




NF 520 rem set msb of x position to off 






MB 530 pol<evs+ 16,0 
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Adding Depth 
To Your Screens 



Stacy Mclnnis 
Upland, California 



- Some Tips on 3-D Sprite Animation 



Artists use various techniques to make Their flat canvasses 
appear to have depth. When you begin to draw a screen for 
your sprites lo move upon you can use many oi those same 
techniques. But you have an additional advantage in adding a 
three dimensional appearance to your screen. Your sprites can 
move and change size and colour. 

For discussion, assume your game takes place in a small town 
which is being invaded by monsters. First let us look at the 
background screen. Buildings and trees should be larger near 
the bottom of the screen and smaller towards the top. This will 
help give the illusion that the bottom of the screen is nearer to 
the viewer. Openings in a building can be used lo give depth as 
our monsters can be seen passing behind them, images that 
overlap also give depth to a picture. For Instance, a tree can be 
placed In front of a building with its base lower than the base of 
the building. This will give the illusion that the tree is closer 
than the building. Either designing your own character graph- 
ics set or building a bit map screen will enable you to more 
readily use such techniques as roads that narrow in the dis- 
tance, that is as they move from the bottom of the screen to the 
top, and buildings In the distance that are smaller and contain 
smaller windows. 

Once your background Is set you are ready to move your 
sprites onto the screen. Remember our monsters attacking the 
village? Set sprite zero to our laser gun hre. It only shows when 
you push the joystick button. Sprite one is our fighter plane that 
has flown in to protect the village from the dreaded monsters. 
Since we have eight sprites available, this leaves us with six 
monster sprites to move on the screen. 

If your six monsters are to move horizontally across the screen, 
make sure thai monster sprite 2 is on the bottom of the screen- 
Sprite 3 is next and sprite 7 is the highest. When the sprites 
cross each other's paths, the sprite with the lowest sprite 
number remains visible, obscuring the higher-numbered 
sprites as If they were behind It. 

Another method to add depth Is to change the size of your 
monster as he moves down the screen. This Is particularly 
effective if the sprite is to appear to be attacking from a distance 
and is moving very fast towards you. The sprite may be made lo 
change Its size as it passes a given position on the screen (as the 
X and Y co-ordinates In $D000to$D01l change). In general, 
the sprite should become larger as it approaches the bottom of 
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the screen. The easiest way to change the sprite size Is by using 
the vertical expansion register (location $D0J7) and the hori- 
zontal expansion register (location SDOID), When the sprite 
first appears, the bits in the expansion register for the sprite 
should be zero to set the sprite lo the regular size. Then as the 
sprite passes a selected point on the screen, you can set the 
expansion bits and have the sprite double in size. Depending 
on the speed and shape of the sprite, you may want to first set 
only the horizontal bit, then expand vertically further down the 
screen. Experiment to hnd the best effect. 

Alternatively to working with the horizontal and vertical regis- 
ters, you may change you; sprite size by using different sprite 
definitions or images. To do this, change the appropriate sprite 
data pointer to point to a new definition. Each new definition 
should be a similar image but a different size. This of course 
involves more time In creating the sprites and more memory to 
store them than just using the expansion registers. Three 
different sizes for attacking monsters seem sufficient but more 
could certainly be used to create a smoother transition. 

Another method to give an impression of depth is the use of 
colour. Assume that you have a black background. Your sprite 
could show up first as dark grey, then as it approaches, turn 
light grey, then lighter and finally white or yellow. It is even 
more effective if the sprite Is multicolour and eventually ap- 
pears a brilliant combination of yellow and red. You can use 
similar techniques in reverse to show a monster retreating Into 
the distance. However, the nature of monsters is such that they 
tend to attack. 

Use you sprite/background display priority (location $D01 B) to 
control whether a sprite moves in front of or behind the 
background. If a sprite Is supposed to be at a great distance then 
it should move behind the background. In our example, the 
background would be the trees and buildings. If a sprite is close 
it should move in front of the village. It is most effective if some 
sprites move in front while others move in the background. 
Since you know the location of your sprite, you can change its 
background display priority as a function of where it Is on the 
screen. However, before you do this be sure and check the 
sprite/background collision register at $D01F or you may 
cause a monster to cut right through the middle of a building. 

With the above ideas in mind you may add a new dimension to 
your graphics screens. 
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Viewports 

For The Commodore 64 



Anthony Bryant 
Winnipeg, Manitoba 



A Hi-res and Multicolour Mode Windowing Utility 



In Volume 5, Issue 06 of The Transactor, Gary Kiziak presented his 
'HIRES' graphics utility package for the C-64, That package gives 
the programmer an array of flexible drawing commands. HIRES 
resides in the free RAM at $COOO-$C81E and uses direct SYS calls 
to plot on the bitmap at $E0OO. Viewports works in conjunction 
with HIRES adding additional commands, in like manner, and 
resides at $C864-$CBFF. 

If at any one time the programmer would like to devote his 
attention to a particular area of the hires screen, the new com- 
mand. VIEW, allows the definition of subsets of the screen, called 
VIEWPORTS- Once a viewport has been defined, all subsequent 
drawing appears within that viewport. VIEW compresses the old 
screen coordinates to fit into the new viewport. Therefore, scaling 
is easily accomplished. 

Refer to the article by Gary Kiziak for details on the screen 
coordinates, character cells and HIRES commands. Viewports 
closely follows that structure, style and labelling. 

'VIEWPORTS.BAS" is a BASIC loader that, when run, will create a 
program file called VIEWPORTS' on your disk. (Make it the same 
disk that holds 'HIRES') This is Ihe machine code that contains 
VIEW and a number of supporting commands which makes 
Viewports quite powerful. 

Editor's Note: Gary Kiziok 's HIRES utility has found it 's way into 
yet another application. The WRES' create loader is not printed 
here, but the loadable 'HIRES' file will be included on Transactor 
Disk ^13 for this issue. For o complete description of the Kiziak 
HIRES utility, see Volume 5, Issue 06, titled "Aids and Utilities ". 

'DEMO I ' and 'DEMO 2' are sample Basic programs that demon- 
strate the new commands. Before looking at these, let's go through 
the new commands, their syntax and the various options availa- 
ble. 



\, Setting Up A Hi-Res Viewport 



A viewport is set up on character cell boundaries and is similar to 
Che make up of a normal text screen but, once defined, it behaves 
like a hires screen. 

LCTR is the top left-hand corner of the viewport, which, if you 
were to define the whole screen as a viewport, would be 0,0. eg: 

SYS VIEW,0, 0,40,25 

There is a shorter way: 

SYS VIEW 

_ . .with no parameters defines the whole screen as a viewport. 

HIRES uses the Cartesian system of coordinates where point x,y 
equal to (0,0) is the lower left hand corner and x,y equal to 
(3^9,199) <or (159,199) for multicolour mode> is the top right 
hand corner of the hires screen. Wherever a viewport is located, 
point (0,0) is the lower left hand corner of the viewport, and point 
(319.199) <or (159,199) for multicolour mode> is the top right 
hand corner of the viewport. 

Now, plotting using HIRES commands PLOT, MOVE, DRAW, and 
BOX is scaled automatically to fit the viewport. All of the HIRES 
commands keep their original syntax, so old programs which used 
these commands can be viewported, 

[l is also possible to fill a viewport with new colours by adding on 
colour parameters with a line like: 



and 



100 SYS VIEW,LC,TR,WIDTH, DEPTH, BG,C1 
(in hires mode) 

TOO SYS VIEW,LC,TR,WIDTH, DEPTH, BG,C1 ,C2,C3 
{in multicolour mode) 



where BG, C1,C2 andC3 are the backgoundand plotting colours 
from HIRES. 



To define a viewport, a line with the following syntax is required. 2. Colouring The Viewport 



1 00 SYS V1EW,LC,TR,W1DTH, DEPTH 



When these extra colour parameters are included in a VIEW 
command, they are passed on to VCOLOUR, the next command 



where: 



LC is the left-most column (0-39) 

TR is the top-most row (0-24} 

WIDTH is the number of columns wide (1-40) 
DEPTH is the number of rows deep (1-25) 



and 



200SYSVCOLOUR,BG.C1 
{in hires mode) 

200 SYS VC0L0UR,BG,C1 ,C2,C3 
(in multicolour mode) 
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VCOLOUR actually changes the background and piotlfng colours, 
filling the screen colour memory WITHIN the currently defined 
viewport. 

3. ThU Is A Frame Up 

With this simple command: 

300SYSVFRAME 

A box is drawn around the perimeter of the currently defined 

viewport. 

300SYSVFRAME,C,M 

also works, as the frame is drawn in the currently active plotting 
colour, whereCis the SELPC and Mis the DMODE. (See the HIRES 

BOX command) 



7. Scrolling Columns 

700 SYS VLFT 

scrolls the currently defined viewport left one column, throwing 
away the left most column and filling blanks into the right column. 

700 SYS VLFT, 1 

changes the scroll to the wrap around type, where the left-most 
column is moved to the right-most column after all columns are 
moved left. 

Only that portion of the bitmap within the viewport is scrolled, so 
narrower viewports scroll faster. In addition, screen colour mem- 
ory is NOT scrolled, so it is desirable to keep to a uniform colour 
scheme within a viewport when scrolling. 



4. A Wipe Out 

New commands VIEW and VCOLOUR do not affect the bitmap, but 
there are occasions when you would want a clean^ viewport amidst 

a cluttered hires screen. 

400SYSVWIPE 

clears the bitmap within the currently defined viewport. 

HIRES commands draw on the bitmap located al $E00O (under the 
Kernal ROM). Viewports allows for an alternate bitmap located at 
SAOOO {under the BASIC ROM). 

400SYSVWIPE,1 

clears the alternate bitmap (unseen) - an area the same dimen- 
sions as the currently defined viewport. Note; \V is merely a flag 
and could be \' anything between 0-255. 

5< A Bitmap Swap 

The alternate bitmap is useful for saving viewports or parts of 

viewports, 

500 SYS VSWAP 

does a byte for byte exchange of the HIRES bitmap with the 
Viewports alternate bitmap. Only that portion of the bitmaps 
within the currently defined viewport is swapped. Consequently, 
smaller viewports take less time to swap and wipe and multiple, 
overlapping viewports are possible. 

6, Scroll Your Row* 



Technical Notes 

Viewports patches directly into the HIRES routines, modifying 
PLOT, MOVE, DRAW and BOX to allow scalmg. Scaling is accom- 
plished using 16 bit integer math routines {not BASIC'S floating 
point routines) so it is very fast and does not slow down PLOT, 
MOVE, DRAW or BOX much. If SYS VIEW is used without 
parameters (or the equivalent SYS VIEW,0,0,40,25) so that the 
whole screen is defined as the viewport, then the scaling math 
routines are simply bypassed and the slow down is now only a few 
machine cycles. 

The new commands make use of many routines from HIRES. For 
example, VFRAME sets up the xj parameters and then jumps into 
the BOX command to do the actual plotting. So if HIRES isn't in 
place, the new commands will crash. 

Viewports occupies free E^M space below HIRES, at $C864- 
$CBFF and, like HIRES, the first memory addresses comprise the 
command jump table. Besides the use of the alternate bitmap 
memory area RAM from $AO0O-$BFFF, a portion of RAM from 
$DE00-$DF40 is used in the scrolling routines. 



*DEMO r 

^DEMO 1 ' is a demonstration program that shows how easy it is to 
scale an existing program (in this case. Gary Kiziak's pie chart 
making program) and manipulate multiple viewports. It's just a 
matter of setting up a viewport and GOSUBing to the original pie 
drawing subroutines. The do-nothing FOR/NEXT loops just slow 
down the demo. 



600 SYS VUP 

scrolls the currently defined viewport up one row throwing away 
the top row and filling the bottom row with blanks. 

600SYSVUP,1 



'DEMO 2' 

^DEMO 2' does a simulation of a hires menu manager. Computers 
like the Macintosh don't have text screens and must communicate 
only using hires screens. 



changes the scroll to the wrap around type, where the top row is Experimenting with HIRES VIEWPORTS may lead you down new 
moved to the bottom row after all rows are moved up. and exciting paths. 
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Basic Loader To Create Object File On OUk 


PJ 


1 

ISIOdata 37.162, 16. 38, 20, 38, 21, 38 






1 


JH 
AB 


1520 data 36, 38, 37, 56,165, 36,229, 34 
1530data168, 165, 37,233, 0,144, 4,132 




LM 


1000 rem save''0:viewpofls,bas' ,8 r 




JD 


1010 rem • ♦ an enhancement package ■ i i 


HC 


1540data 36,133, 37,202,208,229, 38, 20 




GF 


1020 fern •* for garry kiziak's 'hires' - r-,-- 


OF 


1550 data 38, 21,166, 21.165, 20, 96, 76 




CF 


1030 rem -• byanthony bryant 


Al 


1560data 72,178, 32,162.200, 32,181,200 




LB 


1040 rem ** Winnipeg, manitoba 


EB 


1570dala 32,121, 0,240, 54, 32,241.183 




01 


1050: 


CG 


1580data224, 40,176,235,142,121.200, 32 




Ml 


1060 rem •• thisprogramwil create > 


AG 


1590 data 241, 183,224, 25, 176,225, 142, 122 




JO 


1070 rem •♦ a load and run module on " ~ 


BJ 


1600data200, 32,241,183,138,240,216, 24 




EG 


1080 rem ** disk called 'viewports' 


CD 


1610 data 109, 121,200,201, 41, 176,208, 142 




GL 


1090: . . 


Bl 


1620 data 123, 200, 32,241, 183, 138,240, 199 




FO 


1 1 00 open 1 5,8,1 5: open 8,8,1 , " O:viewports ' " 


Fl 


1630dala 24,109,122,200,201, 26,176,191 




LN 


1110inpul#15,e,e$,b,c: if e then close 15: 


NE 


1640 data 142, 124,200, 173, 121,200, 10, 10 






print e,e$;bic: stop ' , ,• ,■ 


HI 


1650data141,125, 200, 162, 0, 44, 53,192 




EN 


1 1 20 : 


NL 


1660data 48, 10.173,125,200, 10,141,125 




ME 


1 1 30 for j = 51300 to 52219: read x: print#8,chr$(x);: 


KE 


1670 data 200, 144. 1,232, 142, 126,200, 173 






ch = ch + x: next: closes -■ =• ti 


NK 


1680 data 124, 200, 24,109,122,200, 73.255 




EH 


1 1 40 If Choi 1 9481 then print " checksum ■ ■ < , 


MH 


1690data 24,105. 26, 10, 10, 10,141,127 






error !" ; stop ,, 


IB 


1700data200. 32,121, 0,208, 1, 96, 32 




PD 


1 1 50 print " • ♦ module created * * " : end 


GC 


1710data241, 183, 138, 41, 15,141, 61,192 




MP 


1160: .. , 


DI , 


1720data 32, 11,197, 32,131,200. 44, 53 




GC 


11 70 data 100, 200, 76,156,201, 76, 17,202 


HN 


1730data192, 16, 15,173, 61,192,141. 33 




ON 


1180 data 76, 88,202, 76,243,202, 76,246 


DF 


1740 data 208, 173, 62,192, 13, 63.192,141 




PM 


1190 data 202, 76, 59,203, 76, 62,203, 


MC 


1750data 70,192,162, 0,142. 66,192,160 




Di 


1200 data 0, 40, 25, 0, 0, 0, 0, 


KN 


1760 data 0, 32, 75,195,200,204,123,200 




JN 


1210 data 0, 173,125,200,174,126,200, 32 


PC 


1770 data 144. 247, 24,165,253.105, 40,133 




JK 


1220data 30,201,173,122,200, 10, 10, 10 


1 

NN 


1 780 data 253, 1 44, 2, 230, 254. 232, 236, 1 24 




CK 


1230 data 73,255, 24,105,200,162, 0, 32 


Bi 


1790dala200, 144, 228, 76, 51,197, 32,131 




EF 


1240data 58,201, 32,113,194, 76,125,194 


LE 


1800daTa200, 173, 124,200, 10, 10, 10,168 




DI 


1250data169, 0, 141, 121,200, 141, 122,200 


LC 


1810data136, 152, 162, 0, 32, 56,201,173 




HC 


1260data169, 40,141,123,200,169, 25,141 


FL 


1820 data 123, 200, 10, 10. 10,144, 1,232 




JB 


1270 data 124, 200, 96,169,218,160,200,141 


LB 


' 1830 dala 56,233, 1,168,138,233, 0,170 




GE 


1280data111, 194, 140, 112, 194, 141,248, 195 


OF 


1840 data 152, 32, 30,201, 76, 73,197,160 




00 


1290dala140,249, 195, 169, 221.160,200,141 


JB 


1850 data 0,173.128,200,240, 15, 48, 3 




PC ; 

1 


1300 dala 10,196,140, 11,196,169,250,160 


EK 


1860 data 177, 253, 72,177,251,145,253,173 




DN 


1310data200, 141, 71,197,140, 72,197, 96 


AL 


1870 data 126, 200, 48, 3, 104, 145,251.200 




PD 


1320data 32,253,174, 32,138,193, 32, 9 


KM 


1880 data 192, 8,208,229, 152, 24, 101,251 




iCM 


1330data201, 24.109,125,200,144. 1,232 


PK 


1890 data 133, 251, 144, 2,230,252, 152, 24 




■ HA 


1340 data 32, 30,201, 32, 37,201, 24,109 


HG 


1900 data 101, 253, 133,253, 144, 2,230,254 




LK 


1350 data 127, 200, 32, 58,201, 76,156,193 


MF 


1910data232,236, 123, 200, 144, 201, 96,132 




HG 


1360 data 32,253,174, 32,138,193, 32, 9 


PH 


1920data 2,162. 0.165,251,133, 91,165 




EL 


1370data201, 32, 37,201, 76,156,193,173 


GP 


1930 data 252, 133, 92.165,253,133, 93,165 




E 


1380 data 43,192,174, 44,192,172,123,200 


HB 


1940 data 254, 133, 94. 32,129,202, 24,165 




NH 


1390data192, 40,240, 8, 32, 65,201,160 


DB 


1950data 91,105, 64,133,251,165, 92,105 




MJ 


1400dala 40, 32,103,201,141, 43,192,142 


KH 


1960data 1,133,252, 24,165. 93,105, 64 




BM 


1410 data 44,192, 96,173, 45,192,174, 46 


EF 


1970 data 133, 253, 165, 94,105. 1,133,254 




EE 


1420 data 192, 172, 124, 200, 192, 25,240, 8 


FJ 


1980 data 164, 2,200,204, 124,200, 144, 199 




BH 


1430dala 32, 65,201,160, 25, 32,103,201 


HC 


1990dala 96,169, 0, 44,169, 1,141,128 




KE 


1440data141, 45,192,142, 46,192, 96,133 


OK 


2000data200, 32, 30,203,166,251.165,252 




JK 


1450data 20,134, 21,132, 34,132, 36,169 


AC 


2010 data 41, 191, 134,253, 133,254, 172, 128 




Gl 


1460dala 0,162, 8, 70, 34,144, 3, 24 


OL 


2020 data 200, 208, 9, 172, 129, 200, 240, A 




LK 


1470data101, 20.106,102, 34,202,208,245 


EG 


2030 data 134, 251, 133,252, 160, 0, 32, 185 




HL 


1480data166, 21,240, 3, 24,101, 36,133 


NC 


2040 data 202, 76,218,192, 32,121, 0,240 




HA 


1490data 35,170,165, 34, 96,133, 20,134 


JB 


2050data 6, 32,241,183,169, 1. 44,169 




HN 


1500data 21,132, 34,169, 0,133, 36,133 


CM 


2060data 0,141,129,200, 32,131,200, 32 


TT>e Trantoctor 63 


Saptl9U:\ft>luine7,tuue02 | 





GO 


2070data201,192, 165, 1, 41,248,133, 1 


OJ 


360 gosub630 ^frame & do big pie chart 


1 




LG 


2080data 96,169, 0, 44,169, 1,141,130 


JC 


370 fori = 1101000: next 


1 




JD 


2090data200, 169,255,141, 128,200, 32, 30 


Nl 


380width=19:depth = 12 


r 




OL 


21O0data203,173, 130,200,208, 66,162, 


LD 


390c = 0: r = 0:bg = 7 c1 =0 


* 




MH 


2110 data 169, 222. 134, 253, 133, 254, 166. 251 


MN 


400a$ = lc$ + rv$+ " 4spcs]Viewport#1 4 spcs]" 


. 




LK 


2120data165, 252, 134, 97,133, 98,172,124 


GM 


41 gosubCI 'frame & scale pie chart 


■ 




JB 


2130data200, 32,185,202,166, 97,165, 98 


PC 


420 depth = 16 






JH 


2140data134,253,133, 254, 160, 1, 32,185 


CP 


430c = 21: r = 0.bg = 3:c1 =0 






IJ 


2150data202, 166,253, 165,254, 134,251,133 


HA 


440 a$ = lc$ + rv$ + ^ [4 spcs Viewport #2 4 spcs] " 






LG 


2160 dala252, 162, 0, 169, 222, 134, 253. 133 


00 


450 gosub610 'frames, sea e pie chart 


* 
» 




AJ 


21 70 data 254, 1 73, 1 29. 200, 141.1 28, 200, 1 72 


D 


460width=34: depth = 8 






DL 


2180data124, 200. 32,185,202, 76,218,192 


MH 


470c = 3:r = 17:bg=4:cl-0 


, 




CH 


2190data160, 0,132, 2,165,251,133, 91 


CD 


480 a$ = lc$ -f- rv$ + ' [4 spcs]Viewport #3(4 spcs] " 


' 




ND 


2200data165, 252, 133, 92,162, 0,169,222 


GB 


490gosub610 frame & scale pie chart 


\ 




10 


2210data134, 253, 133, 254. 166,251,165.252 


LK 


500tort = 1to1000: next 


\ 




PD 


2220 data 134, 97,133, 98,174.123,200. 32 


CH 


510: 


J 




KB 


2230data129, 202, 166, 97,165, 98,134,253 


GA 


520 rem now swap viewports back ' ^ ■ 


1 

1 




LC 


2240data133,254, 162, 1, 32,129,202,166 


Dl 


530bg=1:c1=6 

Li" 


1 




MA 


2250 data253, 165,254, 134,251, 133,252, 162 


KM 


540 sys view, 0,0,1 9,12, bg.d: sysvswap 






GL 


2260 data 0, 169, 222, 134, 253, 133, 254, 173 


IJ 


550 sys view,21 ,0.1 9,16, bg.cl: sysvswap 






KM 


2270 data 129, 200, 141, 128, 200, 174, 123, 200 


MA 


560 sys view.3, 17,34, 8,bg,c1 ; sys vswap 


\ 




10 


2280 data 32,129,202,169,255,141,128,200 


AC 


570 wait 198,1 : get a$: sys text 


•i 

1 




NG 


, 2290data 24,165, 91,105, 64,133,251,165 


EE 


580 end 


\ 




MM 


2300data 92, 105. 1, 133,252, 164. 2.200 


CM 


590: 


1 

} 

M 
1 




JB 


2310data204, 124,200. 144, 157, 76,218.192 


JH 
DE 


600 rem the pie drawing subroutines 
610 sys view,c,r, width, depth, bg,c1 






1 




n ' ■ 


PL 


620 sys vswap 


1 


DemoDStration Program Number 1 ' 


LE 


630 sys vframe: sys prnt,c,r,a$ 


' 








HD 
KF 


640 sys CO our.cl 

650x0 = 159: yG=100: xr = 70:yr = 50: inc = 10 


i 




JE 


100 rem save""0;demo 1 " .8 


1 




BH 


1 1 rem 'viewports' demonstration 


LE 


660sa-45: ea = 75: gosub870 






KH 


1 20 if peeK491 53}<>1 94 then load " 0:hires " ,8,1 


EA 


670sa = 75: ea=160: gosub870 


1 




GM 


130if peek{51301)<>156thenload'"0:viewporls",8,1 


PD 


680 sa = 1 60: ea - 240: gosub870 


1 
1 




AA 


140: " ■ ' ■ 


CF 


690 sa = 240: ea = 325: gosub870 






KE 


150lc$ = chrS(14):cd$ = chr$(17):rv$ = chr$(18) 


GD 


700 xc = 1 75: sa = -35: ea = 45: gosub870 






EB 


160: 


JP 


710sysbox,14, 170,291, 160 






PO 


1 70 rem ' hires' variab es ' 


IC 


720sysbox,8,174,305,168 






LA 


180hifes = 49152:draw = hi + 3: plot = dr + 3 


GP 


730 return 






OM 


190 move -pi +3: clscr^mo + 3: dmode = cl + 3 


IF 


740: 






MF 


200sepc = dm + 3:colour = se + 3: box=co + 3 


NF 


750 rem draw arc 






BC 


1 

210lexl = bo + 3: prnt = te + 3: chsel = pr + 3 


Gl 


760 z1 = sa'N/180: z2 = ea*Ti/1 80: z3 = inc-n/l 80 






LC 


220 trap = ch + 3 


BJ 


770x = xc + xr'cos(z1): y = yc + yr'sin(z1} 






KF 


230 : 


NA 


780 sys move, x,y 






Al 


240 rem 'viewport' variables 


JC 


790fori=z1 toz2stepz3 






KG 


250view = 51300: vcol^vi + 3: vtrame = vc + 3 


EM 


800 X = xc + xr*cos(i): y = yc + yr'sin(i) 






MA 


260 vwipe = vf + 3' vswap = vw + 3; vup = vs + 3 


LC 


810sysdraw,x,y 






EN 


270vlfl-vu + 3 


ID 


820 next 






Ml 


280: 


ED 


830 sys draw.xc + xr'Cos(z2).yc + yr*sin(z2) 






MN 


290 rem begin the demonstration 


EG 


840 return 






AA 


300c = 0:r = 0: width = 40: depth = 25: bg = 1:c1 =6 


GM 


850: 






NB 


310a$ = a$+'" 


GN 


860 rem draw pie 






GN 


320 sys hires,0,bg,c1 : poke 53280,1 


NC 


870 gosub760 






EB 


330 sys view: sys vwipe.l 


FE 


880 sysdraw.xcyc 






PH 


340 a$ = 10$+" Pie Charts are Easy " 


OG 


890 sys draw.xc + xr*cos(z1),yc + yr*sin(z1) 






JJ 


350 a$ = cd$ + rv$ + ' 10 spcs] " + a$ + 
rv$+"[11 spcs]' 


AK 


900 return 








_ 


1 Tlwltanoctor W 


1 tapLI9Sd:V{)lum>7,linM02 


_ 



Demonstration Program Number 2 


IF 


630 next j 








HD 
OP 


640fGri = 1to1000: next 
650: 




LE 


TOO remsave"0:demo2',8 




BH 


1 1 rem 'vJewporls' demonstration 


JP 


660 rem select menu item " file " 




CN 


120 if peek(491 53)0194 then load "hires" ,8,1 


NH 


670 c = 9: r = 0: sys view,c,r.6,1 ,0,1 




CC 


130 if peek{51 301)01 56 then load ' viewports ",8,1 


CJ 


680 r = 1 : sys vfew,c,r,20.20,3,c1 




AA 


140: 


LP 


690 sys vswap: sys vframe 




PG 


150 c$ = chr$(14):ro$ = chr$(146) "" i 


AE 


700 c = 10: r = 2: sys view,c,r,18,18 




EB 


160: ' 


HN 


710 r= 18: gosub820 'print filenames 




PO 


170 rem 'hires' variables 


HI 


720fori = 1to-!000: next 




LA 


1 80 hires = 491 52: draw = hi + 3: plot = dr + 3 


MG 


730c = 9.r = 15 sys view,c,r,20,1,0,3 




OM 


1 90 move = pi + 3: ciscr = mo + 3: dmode = cl + 3 


LJ 


740fori=1to1000: next 




MP 


200 selpc = dm + 3: colour = se + 3: box = co + 3 


LL 


750c = 9: r = 1: sys view,c,r,20,20J3,c1 




BC 


210text = bo + 3 prnt = te + 3: chset = pr + 3 


LE 


760 sys vswap 




LC 


220trap = ch + 3 


DO 


770c = 9: r = 0, sys view,c,r,6, 1,1,0 




KF 


230: 


CP 


780 waitl 98,1: get a$: sys text 




Al 


240 rem 'viewport' variables 


GB 


790 end 




KC 


250 view = 51 300: vcol = vi + 3: vframe = vc + 3 


EJ ' 


600: 




MA 


1 

260vwipe = vf + 3: vswap = vw + 3: vup=vs-+-3 


GH 


81 rem make up some filenames & scrolT 




EN 


' 270vft = vu + 3 


HC 


820 a$- ">dir [13 spcs] ". gosub970 




Ml 


280: 


DH 


830 a$= " [19 spcs] ": 


gosub970 




AH 


290 rem a hires menu manager simulation 


JE 


840 a$- "C-64 Wedge ": 


: gosub970 




BJ 


300bg = 1:c1=0 


CK 


850 a$= ' Dos 5,1 


gosub970 




EN 


31 sys hires,0,bg,c1 : poke 53280,3 


OB 


860a$= "DispayT&S 


gosub970 




KA 


320 sys view: sys vwipe,1 


LH 


870 a$= 'Unicopy64 


gosub970 




OL 


330 : 


BD 


880a$= '■Supermon64.Vl 


gosub970 




HB 


340 rem set up menu command line 


OM 


GQn a^ " 


gosub970 


OjU aji — 




NA 


350 c = 0: r = 0: sys view,c.r,40,1,bg,c1 


lA 


900 a$= "Commands.texT demo " 


gosub970 




00 : 


360a$ = lc$ + ro$+ "Draw[3 3pcs]Ffe 


EF 


910 aS^" Commands.m 


go3ub970 






(3 spcs]Vfew 3 spcs Options" 


CJ 


920 a$ ^ " Hires demo program ' 


gosub970 




Kl ' 


370c = 3: sysprnl,c,r,a$ 


PH 


930 a$= " Hires. ml 


gosub970 




AP' 


380: 


MO 


940 a$ = " Viewports demo prg " : 


gosub970 




PL 


390 rem set up green workbench 


GL 


950 a$= ^ Viewports. ml "; 


. gosub970 




BE 


400c = 0: r = 1: sys view,c,r,40.24,13.c1 
410 sys vframe 


CP 


960 a$ - ^ ' 




PL 


LN 


970 sys prnl,c,r,a$. sys vup 




IB 


420: 


PG 


980fori = 1to100: next 




PB 

LH 


430 rem select menu item draw' 
440 c = 2: r = 0: sys view.c,r,6, 1,0,1 


KP 


990 return 








KJ 


450 r= 1: sys view,c,r,9,8,14J 






FB 


460 sys vswap: sys vframe 






EH 


470 = 3: r = 3: sys prnt.c.r,lc$+ Xirdes^ 






GE 


480 r = 4: sys prnt,c,rjc$ + " Boxes" 






NN 


490 f = 5: syspmt,c,r,lc$+ "Arcs' 






GE 


500 r- 6: sysprnl,c,rjc$+ " Lines ^ 






FL 


510tori=1to1000: next 




1 


LI 


520sysview,c,r,7,1 ,1,6 






JM 


530fori=1to1000: next 




1 


LI 


540 c = 2: r = 1 : sys view,c,r,9,8,1 3,c1 






GP 


550 sys vswap: sys vwipe,1 






JN 


560 c ==2: r = 0: sys view,c,r,6,1,bg,c1 






OK 


570: 






CG 


580 rem return to green workbench 






PA 


590 c = 0: r = 1 : sys view,c,r,40,24,1 3,c1 






HG 


600 sys move, 0,0 






CO 


610forj = 1to50 






JE 


620sysdraw,rnd(1)*320,rnd(1)*200 





Tlw TramocvDf 



45 



S«pt 19S6: \tolum* 7, luu* 02 



Commodore 64 High 
Resolution Draw Routine 



David Jankowski 
Cairns, Australia 



A High-Res Utility You Can Incorporate Into Your Own Programs 



This interesting ML Hi-Res routine resides at SCOOO (491 52) and is 
invoked by passing a string variable from your basic program with 

SYS49152,A1 

The Hi-Res draw routine can be used with keyboard input, 
joystick or drawing pad. 

Listing 1 creates the ML program which actually plots your draw- 
ing on the Hi-Res screen. 

Listing 2 and 3 give you some practical examples how you could 
use Hi-Res Draw from within your own Basic programs and 
Listing 4 is a complete joystick drawing program ready for use. 

Commands 

B Moves Pixel Cursor X pixel(s) DOWN and LEFT. B-t-chr$(X) 

where X = 1-199 
C CLEARS the High-Res screen. 
D Moves Pixel Cursor X pixel(s) DOWN. D + chr$(X) where X = 

1-199 
H Moves Pixel Cursor X pixei(s) UP and LEFT. H + chr$(X) where 

)( - 1-199 
J Moves Pixel Cursor X pixel(s) UP and RIGHT J + chrS(X) where 

X = 1-199 
K Sets pixel KOLOUR to X and screen KOLOLJR to Y. K + ch- 

r$(X) + chr$(Y)whereXandY = 0-15 
L Moves Pixel Cursor Xpixel(s) LEFT. L + chr$(X) where X = 1- 

255 (repeat to maximum 320 pixel positions). 
N Moves Pixel Cursor X pixel(s) DOWN and RIGHT N + chrS(X) 

where X = 1-199 
Starts a repeating LOOP. (i.e. O + chr$(100) + L + ch- 

r$( 1 0) + D + chrSI I ) + Z. This draws a BAR, 1 pixels wide, 1 00 

pixels down from the current cursor position.) 
P PLOT. Plots a pixel anywhere on the screen. P + chr$(XI)-f ch- 

r$(X2)+chr$(Y)whereXI = 1-255, X2 = 0-1 and Y = 1-199. 

Note; XI should not be greater than 64 when X2 = 1. (i.e. 

64 + (lx255)=Xl+(X2)=320) 
R MovesPixelCursorXpixel{s)RIGHTR-fchrS(X)whereX - 1- 

255 {repeat to maximum 320 pixel positions) 
U MovesPixelCursorXpixel(s)UP.U-fchr$(X)whereX = 1-199 

Z Indicates ^NEXT' in loop started with O. 

Pen ERASE. Pen draws in screen colour, 

1 Pen DOWN. Pen draws in cursor colour, 

2 Pen UP. Pen does NOT draw. Cursor may be moved to 
anywhere on the screen. 

+ Cursor OFF. Switches Cursor OFF. 
- Cursor ON. Switches Cursor ON. 

Listing 1: Hi-Res 64 Basic Loader 



1000 rem save" 0:hi-res 64. ba5\8 
1010 rem -* v^ntten by: david jankowski, cairns 
qld4870, australia 




AH 
AK 

CB 

AA 
IJ 

BM 
EP 
PI 
FC 
JL 
JM 
HK 
DA 
JJ 
JP 
HL 
FO 
NM 
CK 
HM 
JD 
FL 
NO 
PG 
IL 
NG 
MP 
EB 
DH 
HB 
Bl 
CJ 
IL 
CM 
PM 
81 
IL 
CJ 
FA 
FJ 
JN 
Dl 
DP 
EG 
DN 
KJ 
CH 
CE 
JP 
LO 
MK 
EH 



1020: 

1030 for ] = 49152 to 49920 read x: pokej.x: 

ch = ch + K: next 
1 040 if ch<>89345 then print " checksum error ' : 

stop 
1050 print " data okay - read article to use ". end 

1060: 

1070data 32.253,174, 32,158,173, 32,163 
1080 data 182, 134,253, 132,254, 56,233, 1 
1090data141, 31,195,160,255,140. 30.195 
llOOdata 32, 58,192,201, 80,208. 45, 32 
inOdala 58,192,141, 52, 3, 32, 58,192 
1120data141, 53, 3. 32, 58,192,141, 54 
1130data 3. 32, 61.194, 76. 24,192,104 
n40dalal04, 96,172, 30,195,173, 31,195 
1150data205, 30,195,240,242,200,140, 30 
1160 data 195, 177:253, 96,201, 67,208, 6 
11 70 data 32,200,194, 76, 24,192,201, 48 
1180data208, 7,169, 1,133,252. 76. 24 
11 90 data 192, 201. 49,208, 7,169, 0.133 
1200data252, 76, 24,192.201, 50.208. 7 
1210data169, 2,133.252, 76, 24.192,201 
1220data 75.208, 37,169, 0,141,255,195 
1230data 32, 58,192, 13,255,195, 24. 42 
1240data 24, 42. 24, 42, 24, 42.141,255 
1250data195, 32, 58.192, 13.255,195,141 
1260 data 255, 195, 32,224,194. 76, 24,192 
1270data201. 68,208, 6, 32, 30,194, 76 
1280data 24.192.201, 82.208, 6. 32.241 
1290data193, 76. 24,192,201, 76,208, 6 
1300data 32,196,193. 76, 24.192,201, 85 
1310data20a. 6, 32.165,193, 76, 24,192 
1320 data 201, 78,208, 33, 32. 58,192,141 
1330 data 33.195,162, 0,142, 34.195,169 
1340data 1, 32. 33,194.169, 1, 32.244 

34. 195,232.236, 33, 195 
76, 24, 192,201, 66,208 
58, 192, 141, 33, 195, 162 
34, 195, 169, 1, 32. 33 
1, 32.199, 193.174, 34 
1400data 195, 232,236, 33,195,208,234, 76 
1410 data 24.192,201. 74,208. 33, 32, 58 
1420data192, 141, 33,195,162. 0,142, 34 
1430 data 195, 169, 1, 32,168.193,169, 1 
1440data 32,244,193,174, 34,195,232,236 
1450dat3 33, 195.208,234. 
1460 data 72,208, 33, 32, 
1470datal95, 162, 0.142, 
1480data 32,168, 193, 169, 
1490 data 174, 34,195,232,236, 33,195,208 

1500data234, 76, 24,192,201, 79,208, 15 
1510dala 32, 58.192,141, 35,195,172, 30 
1520data195, 140. 36,195. 76, 24,192,201 
1530 data 90.208, 23,172, 35,195,136,140 



1350 data 193, 174. 
1360 data 208. 234, 
1370 data 33. 32, 
1380 data 0, 142, 
1390 data 194, 169. 



76, 24,192.201 

58, 192.141, 33 

34, 195. 169, 1 

1, 32, 199, 193 
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DN 


1540dala 35,195,192, 0,208, 3, 76, 24 


LH 


21 fa = 200/hn: x1 = int(320/i) 




NN 


1550 data 192, 172, 36,195,140, 30,195, 76 


AF 


220: 




KE 


1560data 24,192,201, 43,208, 8,169,208 


JO 


230 rem ■• set up screen *" 




IM 


1570data141, 181, 194, 76, 24,192,201, 45 


CP 


240 poke 53265, peek(53265)or32: 




EJ 


1580 data 208, 8, 169,240, 141, 181,194, 76 




poke 53272, peek(53272)ora 




DK 


1590data 24,192, 76, 8,175, 32, 58,192 


NC 


250 sys draw.sS 




IJ 


1600daTal41, 37,195,162, 0,172, 54, 3 


MN 


260for] = 0toi-1 




OE 


16l0data136, 140, 54, 3,142, 38,195, 32 


OD 


270fc = a(j)-fa. itfc<1 thentc = 1 




BB 


1620data 61,194,174, 38,195,232,236, 37 


GP 


280 b$= "o^+chr$(fc}+"r" +chr${xl-2)+ T 




PP 


1630 data 195, 208, 234, 96, 32, 58,192,141 




+ chr$(xl-2)+ "u" +chr$(1)+ "z" 




FC 


1640 data 37,195,162, 0,173, 52, 3, 56 


LL 


290sysdraw,b$ sysdraw,"2d" +chr${fc)+ V ^ 




IG 


1650 data 233, 1,144, 19,141, 52, 3,142 




+ chr$(xl)-+- ^1 ". next 




EN 


1660data 38,195, 32, 61,194,174, 38,195 


HA 


300 wait 198,1 poke 198.0 poke 53265,27: 




IP 
GA 


1670data232,236, 37,195,208,230, 96,172 
1680 data 53. 3.136,140, 53, 3, 76,212 




poke 53272,21. print chr${147); 








EC 


1690data193, 32, 58,192,141, 37,195,162 






FK 


1700data 0,173, 52, 3, 24,105, 1,176 


Usting 3: Letter Generator For Use With Hi-Res 64 




LB 
FH 


1710data 19,141, 52, 3,142, 38,195, 32 
1720 data 61,194,174, 38,195.232,236. 37 






OG 


100 rem save-0;hi-res64 letter ",8 




KA 


1730data 195,208,230, 96,172, 53, 3,200 


NH 


110 rem »- draw hi-res letters •* 




BA 


1740data140, 53, 3, 76, 1,194, 32, 58 


DH 


120 input ' ettersize Mz: draw = 491 52 




OD 


1750data192, 141, 37,195,162, 0,172, 54 


GP 


130: 




FO 


1760data 3,200,140, 54, 3,142, 38,195 


BF 


140 rem *■• set up hi res screen *• 




CG 


1770data 32, 61,194,174, 38.195,232.236 


NN 


1 50 s$ = " + ck " + chr$(3) + chr${0) + " p " + chr$(1 0) 




IG 


1780data 37,195,208,234, 96,166,252,224 




+ chr$(O)-+-chr$(0) 




KE 


1790 data 2,208, 1, 96,173, 53, 3.172 


DN 


160sysdraw,s$ 




OC 


1800data 52, 3,133, 5,152, 41,248,133 


MK 


170 poke 53265, peek{53265)or32 




ID 


1810 data 4,152, 41, 7,133, 6,173, 55 




poke 53272, peek(53272)or8 




LE 


1820data 3,172, 54, 3,152, 74, 74, 74 


IC 


180: 




HA ■ 


1830 data 133, 3, 152, 41,248, 133, 2, 169 


DA 


1 90 rem ■ * letter definitions • • 




IP 1 


1840data 0,133,251,162, 3, 6, 2, 38 


Kl 


200 11 = lz/2 




FK 


1850data251,202, 208,249. 165, 3. 24,101 


HD 


210a$(l)- ^2r^ +chr$(n)+ 'lb" +chr$(l1)+ "d" 




HE 


1860data251, 133, 3,152, 41, 7, 24,101 




+ chr$(l)+ "u" +chr$(l) 




CA 


1870data 2,133, 2,144, 2,230, 3, 24 


HE 


220a$(1) = a$(1)-i- "r"-+-chr${l1.2)+"d" 




IK 


1880data101, 4,133, 2,165, 3,105, 32 




+ chr$(l)+ "u" +chr$(l1)+ "h^ +chf$(l1) 


1 


AF 


1890data 133, 3, 165, 3, 101, 5, 133, 3 


MB 


230a$(1)=a$(1)-t- "2r" +chr$(M) 


1 


AH 


1900 data 166, 6, 232, 169, 0, 56, 106,202 


CG 


240sy5draw,a$(l) 




PB 


1910 data 208. 252, 166,252,240, 27, 160, 


FN 


250 wait 198,1: poke 198,0: poke 53265.27: 




EK 
KH 


1920data 72, 81, 2,145, 2,169, 0,133 
1930 data 162, 165, 162,201, 2,240,250, 104 




poke 53272,21 :pnnlchr$(147); 








LD 


1940 data 73,255, 49, 2,145, 2, 24,144 






MM 1950data 6,160, 0, 17, 2,145, 2, 96 


Listing 4: Joystick Hi-Res Draw Routine 




GD 


1960 data 169, 0,133, 2,169, 32,133, 3 






MJ 1970data162, 32,160, 0,152,145, 2,136 


EK 


100 rem save''0:hi-res64 joystk" ,8 




8C 1980 data 208, 251,230, 3,202,208,246, 96 


JM 


110 rem •» joystick hi-res draw rtn ** 




NM 


1990 data 169, 0, 133, 2, 169, 4, 133, 3 


MO 


120: 




EN 


2000 data 169, 0, 141, 0, 4, 172.255,195 


MM 


130 rem •• set up variables •• 


, 


GO 


2010 data 152, 162, 4, 160, 0, 145, 2, 136 


01 


140 poke 53265, peek(53265)or32: 




JE 


2020 data 208, 251 , 230. 3, 202, 208, 246, 96 




poke 53272, peek(53272)or8 


1 


01 


2030 data 238 


KK 


150draw = 49152:a$(0)= ■". a${1)= 'u " +chr${1): 
a$(2)="d" +chr$(l):a$(3)= " 










CB 


160a$(4)= " " +chr$(ll. a$(5)= "h " +chr$(1). 


Listing 2: Bar-Graph Generator For Use With Hi-Res 64 




a${6)= "b" +chr$(1). a$(7)- " 




NH 


170a$(e)="r" +chr$(1):a$(9)= ^j^ +chr$(l): 
a$(lO)- ^n' +chr$(1) 




NC 


too rem save-O hj-res64 bargen " ,8 


1 




LG 


110 rem ** bar graph generator** 


DK 


180 s$= ■ +lck" -Hchr$(1) + chr$(0)+ "p" 




LE 


120 draw = 491 52: hn=0. print chr$(147) 




+ Chr$(160) + Chr$(0) + chr$(100j 




PD 


130s$= ^-Ick" +chr$(0) + chr$(1)+ "p" 


BP 


190sysdraw,s$ 






; -i-chr$(0) + chr$(0) + chr$|199) 


MD 


200: 




CE 


140 print spc(14)" -bar graph'": print 


MG 


210 rem ** read the loystick'* 




CM 


150 print spc(14)' end with -1 " 


IK 


220 |V = peek(56320): fr ^jv and 1 6. 




GH 


160dima(100);i = 




|v = 15-(jvand 15) 




HJ 


170 input "bar value" ;a(i): if a(i)>hn then hn=^a(]) 


LC 


230 if len(a$(jv)) then sys draw,a$( v) goto 220 




ML 


180ita{i)<>-1 then i = i + 1: goto 170 


PB 


240 )1fr<>l6 then s = l'S.c$ = righl$(str$(s),1): 




CD 


190: 


! 


sys draw, c$ 




FB 


200 rem -* find height & width o\ bars " 


■ KJ 


250 goto 220 
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Hi-Res 

Search and Print 



Jack R. Farrah 
Cincinnati, Ohio 



The Complete Hires Printer Utility! 



The Commodore 6'1 is capable of producing striking graphic 
images in high rt?solulion [[lodeand there are many good commer- 
cial and public domain programs available which support Iheir 
creation. When you want to prin! these images, you're generally 
forced to do so from within the environment oi the graphics 
package Ihey were created with, (f you have several of these, 
you're faced with a lot of wasted time booting up each separate 
program just to print the pictures. 

For those of you with a Gemini SGIO printer and MW350 (or 
similar) interface, Hires Search and Print will allow you to print 
any bitmapped you've created and saved on disk. You can do this 
in either of two slices, irk positive or negative and as a mirror image. 
This gives you eight possible picture variations! Just type in and 
save the basic loader program and follow the instructions below. 

After saving, load and run Hires Search and f'nnl. After the Ready 
prompt, type NI':W and then load any hires picture file that you 
wish \o print. You should load it in as a relocatable hie with: 



LOAD ■ Filename " .8 (don't use ,8 J 



Although the normal location of this file would probably require a 
relociiting load, the ability of Hires Search and Pruit to deal wilh a 
wide variety of program files lies in being able to access all bitmap 
imai^es in the same general area of memory Therefore, all picture 
files are loaded into the basic program area. Once there, the 
bitmap image portion of the file can be located llir[)Ugh Hires 
Search and f^rint's unique search function. 

Some drawing packages may save pictures in multiple files. You 
are only interested in the file containmg the bitmap image. Color 
information is not necessary for this program as were dealing 
strictly with black and white. If you're not sure which file contains 
the bitmap, load either and you'll easily find if its the correc! one 

After your pjcture file is loaded, hit the F5 key. Your screen now is 
in hires with a black and white image. Don't be alarmed if its a 
jumbied pattern of dots. If it is, its time to begin searching for the 
hires image. Use the cursor up/down key to cycle through mem- 
ory. This key re-draws the hires screen starting one screen line 
further into memory each time its hit. Holding the key down will 
do this very quickly or just tap the key for stow cycling. Yon can go 
backwards through memory by using the SHIFT key with the up/ 
down cursor. You can scan through memory again and again if you 
like, but the picture we're searching for will be within one or two 
screens of where we started. The reason you must search for the 
picture is because different drawing programs save not only the 
bitmap, but also color memory information in their files and the 



format of these files varies considerably. Some save the bitmap 
first, some last and , some in between color data. As you're cycling, 
you will begin to see the hires picture appear. It will probably look 
out of registration and not be centered properly on the screen. Get 
as much of this image on the screen as you can with the cursor up/ 

down key. 

After ''ballparking" the hires image, youVe now ready to fine tune 
into proper resolution and screen centering. For this you use the 
left/right cursor key. Operation is identical to the up/down cursor 
except that now the screen is re-drawn starting just one byte 
further into memory each time. Again, using the SHIFT/cursor 
combination allows reverse movement in the event you overshoot 
the mark. 

At any point in this process you can return to the text screen area 

of memory. Simply press the space bar to do so. If you have done a 

considerable amount of cursonng to find your picture, you may 

return to a blank screen and or one with no visible cursor. If the 
cursor is lost, just hil RUN STOP/RFSTORK, This will disable Hires 

Search and Print so you'll need to: 

SYS 49152 

to reactivate it. None of this will affect the hires image you've 
previously located and you may return to it l>y pressiEig F5 again. 

Once youVe located a hires picture and oriented it on the display, 
you can load and di,splay additional pictures created with the same 
drawing package and they loo will be properly centered without 
the need for further searches, uiiless you have altered the setting 
while in hires mode. 

Now let's print our picture. Turn on your Gemini printer and 
choose the image option you want from the list below. 

a) F\ -printsasmall, positive imageofthehiresscreen(3. 25' by 
4.5 ■) 

bj F3- prints a twice size, positive image (6.5" by^'^) 

c) Control and Fl or Control and F3 - prints a small or twice size 
negative image. 

d) Shift and Fl or Shift and P3 - prints a small or twice size 
positive mirror image. 

e) Shih,Control and Fl or F3 - prints a small or twice size 
negative, niirror image. 
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When using the negative and mirror oplions, be ^ure and have the 


EM 


1450 data 193, 240, 40, 32,172,193,173,235 


Control and or Shift Iceys depressed before hitting Ihe function key. 


DP 


1460 data 193, 56,233, 8, 141,235, 193, 133 


To discontinue printing m the middle of a screen dump without 


AA 


1470data251, 144, 3, 76, 86,193,206,234 


shutting off the printer, just hit Ihe Ron/Stop key. 


IC 


1480datal93, 173,234, 193, 133.252, 173,234 




GB 


1490 data 193, 133,252. 169, 25, 141,237, 193 


That's all there is to it! A printer utility that tan handle all your 


LK 


1500dala 76,251,192.169, 27, 32,210,255 


hires needs in one compact package. 


GN 


1510datal69, 64, 32,210,255,169, 4, 32 




DM 


1520 data 195, 255, 32,204,255,169, 0,141 


One hnai note. The program assumes that you are using a parallel 


FE 


1530 data 253, 193, 141,250, 193, 169,200, 141 


printer interface with your Gemini printer that is put in transparent 


PH 


1540data249, 193, 169, 56,141, 65,193,169 


mode with a secondary address of 5, If your interface requires a 


LJ 


1550 data 233, 141, 66,193,169,144.141, 73 


different number, simply replace the Data number five at 49317 


lA 


1560 data 193, 169,206, 141, 78,193, 76, 49 


(Line 1 260 of the BASIC Loader) with Ihe correct number. 


BF 


1570data234, 104, 104, 76, 99.193,165,251 




LC 


1580data 24,105, 64,133,251.165,252,105 


Hires Search and Print: BASIC Loader 


NO 


1590data 1,133.252, 96,169. 13, 32,210 








GD 
JH 


1600 data 255, 169, 10, 32,210,255,162, 
1610 data 139, 247, 193, 32, 210, 255, 232, 224 




LA 


1000 rem hires search and print 




AF . 


1010 rem jack r tarrah 


LG 


1620 data 4,208, 245, 96, 162, 0, 189,239 




iFN: 


, 1 020 for j - 491 52 to 50032 read x 


CL 


1630 data 193, 77,252,193, 32,210,255,173 




1 1 

Bl 


1030 poke |,x ch = ch + x : next 


oc 


1640 data 253, 193,240, 9, 189.239, 193, 77 




HM 


1 040 \i chO 1 23062 then print " checksum error " 


ID 


1650 data 252. 193, 32, 210, 255, 232, 224, 8 






: end 


MJ 


1660 data 208, 228, 165, 197,201, 63,240, 177 




■ JD 


1050 rem 


LA 


1670 data 96, 0, 0, 0, 0, 0, 0, 




NF 


1060data120,169, 24,141, 20, 3,169,192 


CM 


1680 data 0. 0, 0, 0, 0, 0, O, 27 




IC 


1070data141, 2^. 3.169, 0,141,233,193 


FK 


1690 data 75,200, 0, 64, 0, 0, 0, 




LI 


1080data141,253,193J41, 3,194, 88, 96 


OJ 


1700 data 0. 1, 8, 0, 0, 0,160, 




KH 


1090data 76, 39,192, 76,228,194, 76, 19 


CM 


1710 data 169. 4, 141.255, 193, 185,239, 193 




LO 1 


1100datal95, 76,197,194, 76,106,194,165 


BM 


1720data 32, 67,194, 10,176, 21. 46,236 




BH : 


1110 data 197, 201, 64,208. 8, 169, 0, 141 


HP 


1730data193, 24, 46,236,193,206,255,193 




NK : 


1120data233, 193, 76, 49,234,174,233,193 


CO 


1740data208, 241,173, 236, 193,153,239, 193 




KJ '■ 


1 1 30 data 208, 248, 201 , 6. 240, 230, 201 , 60 


PO 


1750 data 76, 61,194, 46,236,193, 56, 46 




JD 


1 140 data 240, 223, 201 , 2, 240, 213, 201 , 7 


DC 


1760 data 236, 193, 206, 255, 193, 208, 220, 173 




LC i 


1150data240,212,201, 4,240, 24.201, 5 


AF 


1770 data 236, 193, 153,239, 193,200, 192, 8 




CJ 


11 60 data 208, 224, 169, 1. 141,253,193, 169 


BP 


1780 data 208, 198, 96, 174,254, 193,240, 4 




Gl 


11 70 data 0, 141,254, 193, 169, 144, 141,249 


lA 


1790data 10, 10, 10, 10, 96,173,253,193 




AL 


1180 data 193, 169, 1. 141,250,193, 169, 1 


■BG 


1800data240, 23,173,254,193, 73. 1,141 




NL 


1190datal41,233, 193, 169, 0, 141.252, 193 


■ FD 


1810 data 254, 193,240, 13, 104, 104, 173,235 




FB 


1200datal41, 0,194,173,141, 2, 41, 5 


, CP 


1820data193, 133,251, 32,172,193, 76, 86 




GO 


1210data240, 38,201, 4,144, 9,162,255 


KK 


1830data193. 96,173, 3,194,208. 83,169 




BF 


1220 data 142, 252. 193, 201, 5, 208, 25, 169 


OC 


1840 data 1, 141,233, 193, 141, 3, 194, 173 




FA 


1230data 1,141, 0,194,169, 24,141, 65 


EC 


1850data 0,221,141, 4,194,173, 24,208 




GE 


1 240 data 193, 169 J05, 141, 66,193, 169, 176 


JL 


1860 data 141, 5, 194, 169. 64, 133,254, 173 




Dl 


1250datal41, 73,193,169,238,141, 78,193 


CF 


1870 data 2, 194, 133, 252, 169, 0. 133,253 




OG 


1260data169, 4,162, 4.160, 5. 32,186 


EF 


1880 data 173, 1,194, 133,251, 160, 0, 177 




GO 


1270data255, 169, 0, 32,189,255, 32,192 


Bl 


1 890 data 251 , 145, 253, 200. 208, 249, 230, 252 




i BE 


1280dala255, 162, 4, 32,201,255,169, 27 


PK 


1900 data 230, 254, 165,254,201, 96,208,239 




DK 


1290data 32,210,255,169, 51, 32,210,255 


AO 


I9l0datal73, 0,221, 41,252, 9. 2.141 




JH 


1300data169, 16. 32,210,255, 32,172,193 


Bl 


1920data 0,221,173, 24,208, 41,135, 9 




GJ 


1310dalal69, 25,141,237,193,169, 40,141 


ML 


1930data128, 141, 24,208, 32, 89,195. 32 




ok: 


1320 data 238, 193,173, 0,194,208, 21,173 


EL 


1940data 71,195, 76, 50,192,173, 3,194 




PL 


1330 data 251, 193, 24, 105, 1, 141,234, 193 


GN 


1950 data 240, 248, 32, 80,195,173, 4,194 




GH 


1340datal33,252, 169, 56, 141,235, 193, 133 


NH 


1960 data 141, 0,221, 173, 5, 194. 141. 24 




FJ 


1350 data 251, 76.251, 192, 173,251, 193,141 


FM 


1970dala208, 169, 0, 141, 3, 194, 141,233 




PC 


1360 data 234, 193, 133,252, 169, 0, 133,251 


AC 


1980dala193, 76, 49,234,173, 3,194,240 




Fl 


1370data141,235, 193, 160, 0, 162, 8,173 


HN 


1990data217, 173, 141, 2, 41, 1,240, 24 




JF 


1380data 0,194,208, 42,177,251,106. 46 


EJ 


2000 data 173, 1, 194,201, 0,208, 11,206 




HL 


1390 data 236, 193,202,208, 249, 173,236, 193 


NN 


2010 data 2, 194, 169,255, 141, 1, 194, 76 




HM 


1400data153,239, 193, 200, 192, 8,208,229 


EF 


2020 data 131, 194,206, 1, 194, 76, 131.194 




MK 


1410 data 173,253, 193,240, 3, 32, 6, 194 


EA 


2030 data 238, 1, 194,208, 3,238, 2, 194 




IB 


1420data 32,196,193,206,237,193,240, 11 


IK ■■ 


2040 data 76, 131, 194, 173, 3, 194,240. 170 




GO 


■ 1430 data 32.158,193, 76,251,192,177,251 


GA 


2050 data 173, 141. 2, 41, 1,240, 20,173 




GP 


1440data 76, 16,193, 32, 77,194,206,238 


AC 


2060data 1,194, 56,233, 64,141, 1,194 
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2070data173. 2J94, 233, 1.141, 
2080 data 76,131,194,169, 64, 24, 
2090data194, 141, 1. 194, 169, 1. 
2100data194,141, 2.194, 76,131, 
2110da1a 17,208. 9, 32.141, 17, 
2120data173. 17.208, 41.223.141, 
2130 data 96,160, 0,162, 0,169. 
2140data 0, 96,157,250, 96,157, 
21 50 data 157, 238, 98.232,224,250, 
2160 data 96 



2, 194 
109, 1 
109, 2 
194,173 
208, 96 
1 7, 206 
1,157 
244, 97 
208, 237 



;and at i&o page pointer 



.pulsiart address o1 
ibirmap in ?eropage 

, pointers 



Hires Search and Print: Merlin Format Source Code 

Mr. Farrah's program source could have easily been converted to 
PAL and verifized, but we didn'^ expect anyone would be entering 
it by hand - Ws here for reference only. 



-hires screen dump progran, vertical screen read lech 

•by)acklarrah 

.hires pcturelO be loaded inio base prog memory 
thires screen localed at $4000 

•f5 turns ori ftires screen, space bar returns to tent screen 
-cursor righi advances mem read Gy one byle 
■cursor upadva/icesby320byTesEI screen hne) 
-shrll key decrements mem by same amount 
•pictures are printed sideways m dump 
.fl prints small pK:iure 12 prints eniarged picture 
-conlfol prints negali^ irnage.shrtt prints mirror image 
-control and shilT can be used smullaneously 
-constants* 

dirout = Ifld3 kernal print 

open = StIcO .openlile 

Chkout - $Hc9 designate output tde 

selifs ^ SHba ,settrie3isec add. 

setnam = Sttbd ;fiie name 

drctin - nice .resloredefault devices 

ctose = Stlc3 .close lite 

irqvec = $314 jirqvecior 

bmreg - SdOl 1 ,enable hires regislef 

vrdbas = SdOia ,mem bank/screen register 

bank " SddOO set mem bank register 

cdmem = S6000 .color mem lor hires 

org SODOO ,49152 

sei 

kJa #<new 
sta irqvec 
Ida *>riew 
sta irqvec + 1 
Ida no 

sta prgflg :6us¥ Hag 

sta pidig ;clear tor small punt 

sta hitig .hires mode Itag 

di 
rts 
-f>ew wedged routine lo print hires screen 
■and search (or hires screen 
new imp start 

-Springboards to deplay and search routfnes 
set! imp set! ;right cursor routine 

seiupl )mp setup up cursor routine 

rslorl jmp rstor ;space bar routine 

dsplyl imp dsply ;di^ilayhiresroutine 

Start Ida $c5 .check current key pressed 

cmp #64 .64 = no key pressed 

bne ckmor .something, check it out 

Wa #0 ,rxjthing keep (Ig clear 

sta prg'lg 
exit jmp $ea3l ;normal irqrouime 

■mam loop wtien keypress detected 
ckmor 1d< prgflg .rt program flag set. we're 

bne exit .busy now. so exit 

cmp #6 ifSke/' 

beq dsply 1 .yes. branch 

cmp #60 ;no spacebar^ 

beq rstort ,yes 

cmp #2 .no cursor righp 

beq set! .yes 

cmp #7 .no cursor down'^ 

beq setups ;yes 

cmp #4 ,00 11'^ 

beq doit ;wasl^ prmt screen 

cmp #5 ;not3'? 



.notfl ort3 exit 
.itsf3 

.set for large print 



Dne e«il 

Ida #1 
sra pctlg 

kla #0 

sta pass ,set up tor 1 st pass 

Ida #144 .new code lor 400 

sta code + 2 .characters to be sent 

Ida #1 ;lo printer tor expanded 

sta code ♦ 3 .print mode 

doit kla #1 .set flag to show we'rebusy 
sta prgftg 

Ida #0 .dear reverse Hag 
sta rvtkg 

Sta mirflg .and clear mirror flag 

Ida $28d ;check lor control & shift 

and #£05 .mask out all but sig bits 

beq setpr ;rtO, neither set 

cmp #4 .somelbings on 

bcc |stmir ;K4.rrkusl be bit 

Idx #255 ;>1 so set reverse flag 
Six r^/ttg 

cmp #5 .isitbolh rev&mirror^ 

bne setpr ,|ust leverse so Oranch 

istmir Ida #1 ,sel mirror tlag 
sta mir'lg 

Ida #24 .altef codes m OfC\m 
sta ckclm + 14 ;routine to add 6 alter 

kda #105 .each column instead 
sfe ckdm+15 ,ofsubtfacLing 
Ida #176 
sta subhi-S 
Ida #238 
sla subhi 

-set up prhnier 

selpi Ida #4 ,tile* 

klx #4 idevice # 

Idy #5 :sec add lasei mteitace trans 

^ setlts 

hda #0 ;no file name 

jsr setnam 

isr open ;open the f ite 

iq« #4 

|Si cTfkou! ,tile4 tor output 

Ida #27 ;escape 

|SJ chrout .send to printer 

Ida #51 .sglO code tor Imespacmg 

-Ion/144thstnch 

jsi chrout ;send it 

kla #16 .n=i6i6/144tha-l/9 

isr chrout send it 

■routine to get htres screen bytes, convert and print 

isr shtt .send cr,ii and codes 

Ida #25 

sta rocnl .set row counter to 25 

Ida #40 

sta cimcnt set cofumn counter to 40 

kla miriig .check if mirror punt 

bne mil .it set,skip add 312 

Ida btmp .get bitmap address high byle 

cic 

adc #£01 add 256 

sta savad .store it 

sta Sfc ,and on zero page 

Ida #£3S .{56) 

sla savaO+ 1 .put m low byte storage 



Sta %tb 

fnp sin 
mk Wa btmp 
sla savad 
sta Sfc 
Ida «0 
sla tfb 
sta savad + 1 

•start address 'or ieadir>g the screen at beginning 
•of last screen column 

■ (3 1 2 bytes fiom start oi bitmap) 

sirf Idy #0 .thitiatize y lo count bytes 

gtt>yl Idx #8 ;x to count rotations 

ida miifig .check it mirror print 

bne mkmir : it set. skip rotate routine 

Ida ($fb).y .get bitmap t>yte from mem 

rotal ror .put k)w byte in carry 

rol hidbyt .put carry m low byte holder 

den .kjwer rotate counter 

bne roiat idoifBiimes 

Ida hidbyt .after altering byte 

store sta bytkp.y , store it here till we get 8 

my rase byiecounter 

Cpy #8 have we done S^ 

bne gtbyl ;no go back lor another 

Jda picfig normaJ Or large pnnt^ 

beq prntit .normal 

(sr exp :large modpfy byles 

prntit jsr prnt ;y^ pnnt the 8 bytes 

dec rocnl ;lower fO'^ counter 

beq ckclm if we'vedone25,dO 
.next column 

isr add ,no1 finished with column 

,so reset pointer tor next 8 byles 

imp strl ;go gel the next a 

mkmj kJa {$fb).y ,lor mirror. |usl put bytes 

imp store lunchanged m storage 

ckclm jsr ckpic .normal Oi large pnnl? 

dec cimcnt ,we Imished 1 column. so 
Jo*er column counter 

beq end ,if wefinished80. doseup 

pr shll .we're not done 6o cr.lf 

kla savad + i .get piev coJumnadd towbyte 

sec isubiraci B to back up 

sbc #S tonexIcoluiYiri 

Sla savad + 1 .save the new low byle 

sta $fb .and at zero page pointer 

bcc subhi ;it cc. need to reduce hcgh byte 

imp rest ,no borrow required 

subhi dec savad .lower high byle 

Ida savad get it 

sta $fc ,put in zero pg pointer 

rest Ida savad .gel old high byte 

sta Sfc .reset zero page 

kJa if 25 .re- initialize row counter 
sta rocnt 

jmp sirt ,back for next column 

end Ida #27 .escape code 

jsr chrout .send it 

kJa #64 .code to mitrahze punter 

jsr chrout .serid it 

Ida #4 

jsr close .ctose liie 4 

jsr circhh reset to default devices 

kla #0 

^a p-cflg reset print size flag 

sta code + 3 ,reset printer codes 

Ida #200 if attered by enlarged 

sta code + 2 print routrne 

Ida #S3e .restore values m ckclm 

sta ckclm* 14 .routine lo do subtjact 

Ida #$e9 ;in case have been ^tered 
sta ckclm +15 .by the mirror routine 
Ida #$90 
sta subhi-5 
Ida #£ce 
Sla subhi 

jrnp Sea3l .exit thru nor mat irq 

•routinetohandle stop key during punting 

Slop pla ,pull return address 

pla .olt the stack 

jmp end :and Close up shop 

•subroutines" 

•reset zero page pointer for next lower screen position 

•in current column by adding 320 

add Ida $fb .gel low byle pointer 

cIc 

adc #S40 .add 64 



1h* 



TO 
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sia %\b 

Ida Sfc 



;pu1 new vafue back 
.gef high byle 
:atJdl[value 01256) 
.5lore il back 
.relurn 



•ad|usi byte for pass 1 or 2 

pascnl Jdx pass ; I sf or 2nd pass'' 

beq refrn , I si no change reeded 

asl ,2nd pass move low 

,nybble lo high 



•send code to pf inter lo Oo carr4age return, line leed 
•and send prinrer codes 'of graphics 200 bytes lo folio* 
■400 byies if enlarged pnnt mode chosen 

Shft Ida tSOd :13 carnage reiurn 

[Bf chroul ,send il 

Ida #10 .line leed code 

fx chrojl send it 

idj- *0 .x 35 index 

mrcd Ida code x ,gel code 

jsr chfoui ,senfjit 

inx :raisenide* 

cpn #4 .finished all 4'^ 

bne mrcd .no do more 

re .yes return 
-rouline fo pnnl Ihe 8 converted byies 

pint Idx #0 ,x counts bytes 

nxlbyl Ida byfkp.x \g& saved^oonv byte 

eor rvtig ;swilch bils if reverse 

|Sr chioul .send il 

kJa pcflg ,nDiFnal or expanded? 

beq inc .ixjrmal. branch 

kJa byikp.R ,e'panded print byle 

eor r^lg ,lwice 

|Sr chrout 

incx pnx .raise counter 

cpx »8 done an B'^ 

bne nxibyi , no get another 

Ida Sc5 ,cbeck iT key bil 

oTip /^63 ,5topkey 

beq slop .yes. so close up 

rts .yes return 

prgllg ds 1 .prg in progress flag 

savad ds2 .hoJderforcurtenisc column 
.add [hi/1o order) 

hJdbyr ds i holder lor revfsed order byle 

rocnl ds 1 .screen row counter 

clmcn] ds 1 .screen column counter 

bylkp ds a .sloiage for 8 convert, bytes 
code dfb27. 75.200. 

•Codes-escape, set lor bitmap mode. # bytes com ing(ini) 

btmp hex 40 ;high byle of bitmap screen 

tvtig ds I .reverse pnni flag dear, 
;rio reverse set. reverse 

picflg ds I ;dear for normaLset 
.for expanded prmi 

pass ds 1 -Mg lo show wtiich pass thru 
■ .screen column we're on 

bJicn; ds 1 .counter lor bits m expanded 
.pnnibyteconveision 

mirllg ds I flag lor minor print 

srcio hex Of .tow byte source scieei] 

srchi hex 08 ,high byle same 

hifig ds 1 .hires mode flag 

bnkstor ds 1 .lextsc reg save 

basloi ds 1 .same 
•conversion routine lo double scale high or k>rt 
•nybWe of byle tor expanded pnni 

exp kly #0 ;ini1iali^e index mco table 
gee Ua «4 

sia bilcnt set counler lor 4 bits 

Ida bylkp.v gel byle 

jsr pascnt which pass'' 

hxfbt asl ,shi1t bil 7 into carry 

bcs sel :bit was on 

rol hldbyi .carry mlo low bit holder 

dc 

rol hldbyi ^twce 

dec bitcnl Jower bit counter 

bne n<[bl do next bil(a SI ill has byte) 

Ida hldbyi .we've done 4 

sta bylkp,y .save it 

imp reset update counier 

sel rol hkJbyl bit was sel pul in holder 

sec , sel carry (0 put 2 set 

rol hldbyr ,bi1s iri holder 

dec brtcnl lower bilcounter 

txie nxtbt .rfmoietodo. gettt 

Ida hldbyi done all 4 

sia byikp.y save expanded nybble 

lesel my .bfie done.ieset lor next 

cpy #a .finished a'^ 

bne get ;no. ger another 

ris .yes.relurn 



relrn ris 

•afier domg a column, check ii m expanded mode 

-arxJ il so. adjusl pass counter 

ckpic Ida picfig .which mode'' 

beq nochg .il clear. |usl return 

kJa pass ,gei pass value 

eor #0! .switch [he bil jf il was 

;0 It's no* 1 rfitwas 1, 

;jls now 

sia pass pul new value back 

beq nochg .if Owe |usl did 2nd pass 

pie ; pull rei urn address 

pla ;from stack 

Ida savadtl .resiore low byle elm point 

sta Sfb 

jsr shfl do cr.lt and codes 

imp rest restore high poinierjeset 

,row counter and redo last elm 

nochg ris 

•routine lo display biimap 

dsply Ida hitlg are we in hires' 
bne sb yes. soexit 

Ida •! ,noset llagioshow 

sia prgfig -we're busy and 

sta hrfig .in hires mode 

Ida bank .gel text screen vc 

sia bnkslor ,regjster and save il 

Ua v-jbas :same for this register 
sia bastor 

•eniry point from cursor routines 

enter Ida #S40 .high byle of disptay screen 

sta Sfe .into zero page 

Ida sichi .source block high byte 

sta Sfc .intozfifopage 

Ida HQO ,low byte display ^jeeri 
sia ltd 

Ida sicio Jow byle source bloch 
sfa Ifb 

Idy #0 .Lnilialize y 

•copy aOOO byies Irom source lo display 

■up Ida [$fb),y ,gei source byle 

sta ($fd),y , store m display 

my , raise index 

bne lup ,gei 256 byies 

inc Elc .after 256. raise high byle 

inc S'e ,source and display 

Ida $fe .gel value in display 

cmp #S60 :finished when = S60 

bne lup .not done, get more 

kJa bank get register 

and #Slc maskoulbilsOB, T 

ora #S02 seibil l 

sia bank ,sel lobank l(S4000-7ffl) 

Ida vidbas .geiregisier 

and #S87 .clear bus 3.4 5 & 6 

oia iVSSO ,sei bit 7 

sta vidbas ;3c mem at S6000. hires m 

;kiwer half ol bank 

jsr lik;ol .set coloi mem to blacWwhiie 

jsi bilon .turn on the hires screen 

sb imp exit .e<it Ihru normal irq 

•routine lo reset to lext screen in response lo space bar 

rstor Ida hillg are we m hires'^ 

beq sb no soexil 

jsr l:\\^ol yes turn ofl bitmap 

Wa bnksior ,ge! lexi screen regrster 

sia bank .restore it 

kia baslor get 2nd register 

sia vidbas restore il 

Ida #0 .clear rhe busy ar>d 

sia hifig ;h lies flags 
sia pigllg 

imp Sea31 .exJt thru normal irq 

•roulineloincremenl/decremenl source screen start 

'by orie byle in response to right cursor 

sell Ida hillg are we in hues'' 

beq sb .no. soexit 

Ida I02ed .yes shill key pressed^ 

and »^$0l .mask all but bit 

beq adio .dear so increment 

Ida srcio .set so subtract 



;iSSource low byte 0'? 

,no. soiower low byte by I 

.yes decrement hi byle 

,and add 255 to low byte 

,lo^ efleciive 1 byte leduclion 

,go update screen 

.subiract 1 from kJwbyte source 

update screen 

.add 1 10 source low byle 

;rf new value nolO 

;^ low byle ro»ed over 



cmp #0 

bne sb2 

dec srchi 

kJa #255 

sta srcto 

]mp enter 

Sb2 dec srcIo 

jiTip enter 

adIO mc sicIo 

bne sbl 

inc srchj 
;loO, increment high byte 

sbl imp enter updatescreen 
-routine to increment/decremeni source start by 3?0 bytes 

setup Ida hifig .are we in hires'' 

beq sb , no exit 

Ida £026d ,yes shift pressed^ 

and «£01 ;maskallbutbilO 

beq addit JO. noshrft 

Ida srdo ^itwassei subiract 

sac get tow byte source 

sbc *64 .sobtracie4 

sta srcto .store new value 

Ida srchi get high byle 

sbc #1 subtiacl l ( = 256] 

sia srchi .store new ualue 

imp enter .updatescreen 

addil Ida #64 .add 54 to soujce low byte 

dc ,and 1 (256) to source 

adc srcto :high byre to raise 

sta sicIo ,pCMnterby I screen line 

Ida #1 

adc srchi 

sta srchi .store new vafues 

imp enter ,update screen 
•routine to turn on hires screen 

biion Ida bmreg .get enable register 

ora #S20 set bit 5 

sta bmreg ;stoie new value back 

rts , return 
•routine lo turn hires screen oH 

bifol kJa bmieg .get enable register 

and #Sdf .clear bit 5 

sia bmreg .store new value 

m return 

■icHJtine to sel hires color memory 

filcol Idy #0 .initialise y 

Idx #0 .and X 

cdop Ida #$01 ;0 = color code Wack.l -while 

sta coTmem.x put in all lOOO byies 

sta cdmem +■ 250.x 

sta cofmem ♦ 500.x 

sia colmem 1 750.x 

kix .raee index 

cpx #250 .do 250 limes 

bne colup ,nol done do more 

rts , return 
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Commodore 128 
High-Res Graphics 



Paul T. Durrant 
Long Prairie, Minnesota 



Hi-Res Graphics On The Commodore 128^s 80 Column Screen Using BASIC 7.0 Commands. 



The Commodore 128 computer includes some very useful 
graphics commands in its BASIC implementation. It also in- 
cludes Iwo video chips: a 40 column chip (the ViC) as in the 

Commodore 64 — and an 80 column chip (the VDC). The VDC 
can display a sini^le color (plus background) High-Resolution 
graphics image which is 640 dots wide by 200 dots tall; twice 
the horizontal resolution of the VIC screen. 

Unfortunately, the Hi-Res graphics commands included in 
BASIC 7.0 do not support the VDC. Using the accompanying 
program, you can create Hi-Res i^raphics on the 40 column 
screen and transfer them to either side of the 80 column screen 
{and back again). With this technique, a 640 dot wide Hi-Res 
image may be created in two halves, using BASIC 7.0 com- 
mands. 

Even if you aren't interested in having 80 column Hi-Res 
graphics, the program may be useful to you. The VDC has 
access to 16K of ils own dedicated memory — outside of the 
normal address space Thus you may store and retrieve two 40 
column Hi-Res screens without any loss of main memory. 



Use Of The Program 

The SYS command in BASIC 7.0 allows you to directly pass a 
value to the processor's accumulator (and other registers). 

SYS <address>,<va!ue> 

. , .will start the machine language program at <address> with 
<value> in the accumulator. This program takes advantage of 
this expanded capability of the SYS command. As presented, 
the routine begins at location 2816 ($bOO) — in the 128'5 
cassette buffer. 

As noted, the 80 column Hi-Res screen can display two 40 
column screen's worth of information — one on the left side, 
one on the right. This program allows you to select which half 
of the 80 column screen to use. Not only can you transfer an 



image to the 80 column screen from the 40 column screen, you 
also may transfer one back again. Four different combina- 
tions are possible: 

SYS 2816,0 - transfers the 40 column screen to the left side of 

the 80 column screen. 

SYS 2816.1 - transfers the 40 column screen to the right side of 

the 80 column screen. 

SYS 2816.2 - transfers the left side of the 80 column screen to 

the 40 column screen. 

SYS 2816,3 ' transfers the right side of the 80 column screen to 

the 40 column screen. 

In addition, SYS 3023 can be used to clear and restore the VDC 

screen to text mode. 

You may easily program the Function Keys to execute these 

commands. 



How It Works: 

Before discussing the program, it's necessary to review a little 
of how Hi-Res graphics images are created by the Iwo chips. A 
single text character is composed of 64 bits in an 8 by 8 
matrix. Each time the monitor scans a single screen line, it 
picks up one byte {8 bits) and either turns the " light beam " on 
or off for each bit. Data for a Hi-Res image in the 40 column 
mode Stan at address $2000. Location $2001 refers to the 
second byte of the "character" in the upper left corner 
(which is on the second screen line). Location $2002 refers to 
the third byte, etc. After creating the dots for the top row of the 
first character, the next set of dots on the monitor must 
come from the top byte of the second character. So the VIC 
reads every eighth byte as it goes across Ihe screen, moves 
down one byte from where it started, and then displays every 
eighth byte again, until the whole first row of "characters" is 
displayed. This arrangement is illustrated below: 
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$2000 $2008 $2010 
$2001 $2009 $2011 
$2002 $200a $2012 



$2007 $200f $2017 
$2140 $2148 $2150 



$2138 
$2139 
$2 13a 



$21 3f 
$2278 



Anyone who has dabbled wilh Hi-Res graphics on the Commo- 
dore 64 (which uses the same procedure) knows that this is a 
rather clumsy technique. 



00b06 20 c7 Ob |sr S0bc7 ;Set 80 col screen to graphics. 
00b09 68 pla 

OObOa 8d dc Ob sta $0be6 



OObOd 29 01 
OObOt to 02 
00b 11 a9 28 
00b13 85 eO 
00b 15 aO 00 
00b17 84 el 
00b19 84 tb 
00b1b 8c de Ob 
OOble a9 20 
00b20 85 fc 
00b22 8d df Ob 



and #$01 
beq $0bT3 
Ida #$28 
sta $eO 
Idy #$00 
sty $e1 
sty $fb 
sty S0be8 
Ida #$20 
sta $tc 
sta $0be9 



,3ave TRANSFER. DIREC- 
TION. 

; If (ace) = 1 now. refers 1o 
;r(ght side of 60 col screen, 
;so start at middle, 
;(Acc) - or 40 now. 

;$e0/e1 arethe eO.COL.PTR. 

,Lowbyteof40.COL.PTR 

,BEGtNningof40colROW, 

;Highbyteof40.COL.PTR. 
;Ditto, for BEGIN of 40 col 
ROW, 



The new VDC uses a simpler method. When in Hi-Res mode, 
location $0000 of the VDC's dedicated memory refers to the 
first Ijyie on the top screen line. Location $0001 refers to the 
next byte on the top screen line, etc. As you can see, this is a 
much simpler arrangement: 



$0000 $0001 $0002 
$0050 $0051 $0052 



$0049 
$00a0 



At the bcgirming of the program the accumulator is checked to 
see if it contains one of the four defined instructions. If so, the 
VDC is pbced in graphics mode, the instruction is saved, and 
pointers are initialized. ROW.COUNT is initialized to 25, 40 " 
characters " worthofdataare moved, pointers are updated and 
ROW.COUNT Is decremented. The program is finished when 
ROW.COUNT gets to zero. The accompanying annotated disas- 
sembly of the machine language code tells it all. 

Much of the code could be written in one large routine, but I've 
chosen to break it into several smaller ones. Some of the 
subroutines are only called once from a single higher routine, 
but the resulting code is easier to follow. 

Even though this is a machine language program, it takes a 
second or so for a transfer between screens to be completed. 
This is caused by the different arrangements of Hi-Res data in 
memory, the indirect addressing required for the VDC's 1 6K of 
dedicated memory, and the fact that 8K of data is being moved 
each time. 



lEntry/initializalion: 

OObOO c9 04 cmp#$04 

00b02 90 01 bcc $0b05 

00b04 60 rls 



; Branch ff (ace) <4 
;else ignore "illegal 
mand. 



com- 



;[v)ove 

00b25 

00b27 

00b2a 

00b2d 

00b2f 

00b31 

00b34 

00b36 

00b38 

00b3a 

OObSd 

00b40 

00b42 



screen: 
a9 19 
8d dd Ob 
20 43 Ob 
e6 tb 
a5 fb 
8d de Ob 
dO 02 
e6 fc 
a5 fc 
8d df Ob 
ce dd Ob 
dO eS 
60 



Ida #$19 

sta $0be7 

|sr $0b43 

tnc $fb 

Ida $tb 

sta $0be8 

bne $0b38 

inc $fc 

Ida $fc 

sta $0be9 

dec $0be7 

bne $0b2a 
rls 



;Move 40 characters: 
00b43 a9 08 Ida 



#S08 



00b45 8d eO Ob 
00b48 20 59 Ob 
00b4b 20 98 Ob 
00b4e ce eO Ob 
OObSl dO 01 
00b53 60 
00b54 20 a9 Ob 
00b57 dO et 



sta $0bea 
jsr $0b59 
|sr $0b98 
dec $Obea 
bne $0b54 
rts 

jsr $0ba9 
bne $0b48 



;Move 
00b59 

00b5c 
OObSe 

oobeo 

00b63 
00b66 
00b68 
00b6a 

00b6d 
00b70 



40 bytes 
ad dc Ob 
c9 02 

90 12 

20 cO Ob 
8c el Ob 
aO 00 

91 fb 

ac el Ob 
20 84 Ob 
dO ee 



Ida $0be6 
cmp #$02 
bcc $0b72 



|sr 

sty 

Idy 

sta 

Idy 

jsr 



$ObcO 
$Obeb 

#$00 
|$lb).y 
SObeb 
$0b84 



;25 screen rows, 

.ROW.COUNTER 

; Do " move 40 characters " . 

;Sel40.COLPTRlo 

;nexl row. 

,Save it in BEGIN. ROW, too. 

;Adjust high bytes of 
;both if necessary. 

, ROW COUNTER, 
;Repealif noldone. 
.efse rts. 



;Each 'character " has 8 

bytes. 

,So count BYTE. ROW down. 

fsr " move 40 bytes " . 

and move to next 80 cof row. 

If done 8 limes. 

then 

rts. 

Else move to next 40 col row 

and branch always. 



bne $0b60 



TRANSFER.DIRECTION. 
It <2 theri 

branch to move from 40 to 80 
Else move from 80 lo 40 
Save fy) as pir to col on 80 
col screen and use tor indirect 
store lo 40. 
Restore (y) and 
.increment pointers. 
.Branch always. 



00b05 48 



pha 
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;Moveabytetrcim 
00b72 8c el Ob 
00b75 aO 00 
DOb77 b1 fb 
00b79 ac el Ob 
00b7c 20 be Ob 
00b7( 20 84 Ob 
00b82 dO ee 



40 to 80; 
s!y SObeb 
Idy #$00 
Ida ($fb),y 
Idy SObeb 
jsr SObbc 
jsr $0b84 
bne $0b72 



;lncrement40.COL 
00b84 c8 
00b85 cO 28 
00b87 90 03 
00b89 68 
OObSa 68 
00b8b 60 
00b8c 18 
00b8d a9 OS 
OObSf 65 fb 
00b91 85 fb 
00b93 90 02 
00b95 e6 (c 
00b97 60 



PTR 

iny 

cpy #$28 

bcc SObSc 

f^a 

pi a 

rts 

cic 

Ida #$08 

adc $fb 

sta Sfb 

bcc $0b97 

inc $fc 
fts 



Save (y) as ptr to co[ on 80 

screen. 

Get byte from 40 col 

screen 

and store in 80. 

Increment pointers and 

branch always. 



Have 40 bytes been moved? 
Branch it not 

Else pull retLirn address off 
;stack and return to 
" move 40 characters ' . 
Add 

8 to 40 COL. POINTER lo get 
next byte this screen line. 



;Next 80 col row: 
00b98 aO 00 
00b9a 18 
00b9b a9 50 
00b9d 65 eO 
00b9f 85 eO 
OObal 90 02 
00ba3 e6 el 
00ba5 20 e6 cd 
00ba8 60 



;Add 80 to 80 col ptr. 



Idy #$00 .Start with first byte 

clc 

Ida #$50 

adc $eO 

sta SeO 

bcc $0ba5 

Inc $e1 

jsr $cde6 
rts 



;Store a byte in VDC's memory: 

OObbc 48 pha ;SelVDC memory location 

OObbd 4c 54 cc jmp $cc54 ,and store a byte there. 



,Get a byte from VDC's memory 

OObcO 20 e6 cd jsr $cde6 iSelect VDC memory locatron 

and 
00bc3 20 d8 cd jsr $cdd8 ;read a byte Irom there. 

00bc6 60 rts 



;Turn on VDC's graphics mode 
00bc7 a2 19 Idx #$19 

00bc9 a9 80 Ida #$80 

OObcb 20 cc cd |sr Scdcc 
OObce 60 rts 



;Return VDC to text mode: 




OObcf a2 19 


Idx #$19 


;Texi mode. 


OObdl a9 40 


Ida #$40 




00bd3 20 cb Ob 


sr SObeb 




00bd6 a5 d7 


Ida $d7 


;Cursor in 80 co! screen? 


OObdS 30 03 


bmi SObdd 


;Branch if so, 


OObda 20 2c cd 


jsr $cd2c 


;else switch screens. 


OObdd 20 42 c1 


|sr $c142 


;C ear screen. 


OObeO 20 2c cd 


jsr Scd2c 


;Switch to 40 col screen. 


00be3 4c Oc ce 


jmp IceOc 


; Restore VDC character set 



;ROM routine which sets 
; location in VDC's memory. 



;Next40 col row, 
00ba9 ee de Ob 
OObac ad de Ob 
OObaf 85 tb 
OObbI dO 03 
00bb3 ee df Ob 
00bb6 ad df Ob 
00bb9 85 Ic 
OObbb 60 



inc $0be8 

Ida $0be8 

sta $fb 

bne S0bb6 

inc $0be9 

Ida $0be9 

sta $fc 
rts 



BEGIN. ROW/ 

$0be8 points to beginning of a 

row ot bytes in 40 col screen. 

This routine is called atter 

40 bytes have been moved, to 

set 40 COL. PTR to 

the next row of bytes. 
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Computoons 




"RUNNING A PROGRAM" 



(S©K][?ID¥E[S ©EP^c 





PSHUGGfTT" 



R. UoiK n 



''This dam hunian is down more than It's upl" 



■*—' ^ -^ Ji^f^ .^jF 



5. C^r^igfort y/i 




*'You mean there *» a fruit name after a computer?!** 



"According to this Home Finance program, we're 
brolce l>ecaiiae we l>ought this computer/ 
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News BRK 



Submitlmg NEWS BRK Press Releases 

If you have a press release which you would like fo submil (or Ihe NEWS BRK 
column, make sure thai the computer or device (or which the product is 
miended is prominently noted. We receive hundreds of press releases for each 
issue, and ones whose intended readership is not clear must unfortunately go 
sTraight to the trash bin. It should also tx; mentioned here that we only print 
produci releases which are in some way Applicable lo Commodore equipment. 
News of events sucii as computer shows should be received at leasf 6 months in 
advance. 

Transactor News 

Transactor Mail Order News 

Our mail-order department is expanding nicely, bjl our mail-order card isn't. 
Seems we just can't find any more room lo put more text withoul making it ^o 
small that you can't read it. So, if you're using the card to order, we suggest you 
pull it out and cross-reference with the list below for more details. 

■ Inner Space Anthology % 1 4.95 

This is our ever popular Complete Commodore Inner Space Anthology' Even 
after a year, we still get inquiries about its contents. Briefly, The Anthology is a 
reference book - it has no 'redding" material (le "paragraphs^'), in 122 
compact pages, there are memory maps for 5 CBM computers, 3 Disk Drives, 
and maps of COMAL; summaries of BASIC commands. Assembler and MLM 
commands, and Wordprocessor and Spreadsheet commands Machine Lan- 
guage codes and modes are summarized, as well as entry points to ROM 
routines. There are sections on Music, Graphics, Network and BBS phone 
numbers, Computer Clubs, Hardware, urlil-to-iinit conversions, plus much 
more. , , about 2.5 million characters total! 

■ The Toolbox (PAL and POWER) *79.95 

PAL and POWER from Pro-Line are two of the most popular programs for the 
Commodore 64. PAL is an easy-fo-use assembler (most assembler listings in 
The Transactor are in PAL format), and POWER is a programmer's aid package 
that adds editing features and useful commands to the programmmg environ- 
menL They come with two nice manuals, and our price is S50 less than 
suggested retail' 

Amiga RAM Expansion by Comspec 

■ AXlOOOAmigal MEGRAM BoxS729.Ua(-f$IOOS&H)lJ.S. 

SlO35.O0(fl25S&H)Cdn 

■ AX2000 Amiga 2 MKG RAM Box $899 00 { + SlOO S&H) U.S., 

S!276.00( + S25S&H)Cdn 
The AX2000 adds 2 Megabytes of "fast ' RAM to the Amiga, allowing more ta.sks 
to run in the system at once, or for use as a fast RAM-drive. The unit plugs into 
the expansion connector on the side of the Amiga and duplicates the connector 
for other devices to plug into Up to two RAM boards may be plugged in 
Together {limited by the Amiga'a power supply), adding 4 Megabytes. The bojL 
has "autO'Config", so with Kickslart 1 2 the RAM will automatically be added to 
the system when it is booted, 11 you are jsing Kickstart LO or I.I (no auto- 
config), you can use the program included with the AX2000 to add the memory 
lo the system, and change your startup-sequence lo automatically add the 
memory on power-up. Standard expansion bus architecture was used in the 
design of the AX2000. ensuring compatability with all peripherals and operat- 
ing system releases. The unobtrusive steel box is the same height and colour as 
the Amiga, and snugs up to the side without taking up much extra space. The 
unit is built lough and comes with a I year manufacturer warranty. 

This seems to be the most highly-recommended Amiga RAM board, and the 
first one to actually be available, so we're selling it here at The Transactor. You 



can order the AX2000 or the ] -Meg AXI 000 from the subscription form in this 
issue. Shippnig and Handling to the U 5.A. is via courrier and mcludes all 
customs clearance, or you can opt to clear shipments yourself and have it 
shipped "collect". For dealer information, contact: 

Comspec Communications Inc. 
153 Bridgeland Avenue 
Toronto, Out. 
M6A2Ye (416)787-0617 

Paperback Wriler now ^'Pocket Writer*' 

To avoid confusion with products by Paperback Software International of 
California manufactured for the IBM market, Digital Solutions has changed the 
name of their Paperback series of software to Pocket Writer, Pocket Planner, 
Pocket Filer, and Pocket Dictionary. The new packaging will commense when 
current stock runs out, but the software inside will be identical. 

■ Pocket Writer C64 1 39. 95 US, 5-19.95 Cdn 

■ Pocket Planner C64 S39.95 US, S49.95 Cdn 

■ Pocket Filer C64 £39.95 US, $49.95 Cdn 

■ Pocket Writer C128 $49.95 US, $69.95 Cdn 

■ Pocket Planner C128 $49 95 US, S69.95 Cdn 

■ Pocket Filer CJ28 $49.95 US, $69.95 Cdn 

■ Pocket Dictionary 114.95 US, $19.95 Cdn 

In our opinion, the Pocket packages from Digital Solutions are the best you can 
get on their own - the fad that they work with each other makes them even 
better. Planner and Filer data can be loaded into the Writer, Writer text can be 
sent to Ihe Filer, and etcetera. The Dictionary spell checker works with both 
versions of the Writer. 

■ The GLINK C64 to lEFF Interface $49.95 

The GLINK piugi into the cartridge port, but doesn't extend the port for more 
canridges(lor that youll need a "motherboard^' of some kind). The other side of 

the CLINK is an lEFE card-edge suitable for a PFJ-IEEF cable. From there, any 
IEEE device can be accessed including disk drives, modems, printers, etc. The 
GLINK IS "transparent ' - that means it won't interfere with programs, except 
Ihosethat rely on the serial routines which it replaces (ie. programs with buili- 
in ^'fastloaders'" for The 1541 won't like the presence of the GLINK) It has no 
manual (aside from one page of installation instructions) because it alters 
nothing and leaves everything unchanged! An onboard switch allows you to 
select Serial or IEEE GLINK works with both theCG4 and theCI28Ln 64 mode, 

but not on the VIC 20. 

■ The TransBASIC Disk $9.95 

This is the complete collection of every TransBASIC module ever published up 
to Volume 7, Issue 01 . There are over 1 20 commands at your disposal. You pick 
the ones you want to use, and in any combination! It's so simple that a 
summary of instructions fits right on Ihe disk label. The manual describes each 
of The commands, plus how to write your own commands. 

■ Super Kit 1 541 $29.95 US, $39.95 Cdn 

Super Kit is, quite simply, the best disk file utility there is No more losing those 
valuable copy -protected originals {like what's iiappcned to me twice too many 
times). So far we've shipped over 100 Super Kits and orders continue to pour in. 

Gnome Speed Compiler = SM Compiler 

■ Gnome Speed Compiler $59.95 US, $69.95 Cdn 

In last issue's NEWS BRK section, the SM compiler was incorrectly listed at 
S39.95 US. The SM compiler\s real name is "Gnome Speed^' as introduced in 
thelast pai^e ad, and sells ^or (he price listed in the ad and on the subscription 

card $59.95 U,S. This compiler is lot BASIC 7 1) on the Comm^Klore 1 28. 
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■ Gnome Kit Utility $39.95 US, S49.95 Cdn 

Gnome Kit is a Commodore 128 utility wilh enhancements for the BASIC editor 
(like Trace, Find, Renumber, Delete. Auto, etc.) as well as enhanced monitor 
commands f and floppy disk monitor lunctions. 

Transactor Disks, Tran»actor Back Issues, and Microfiche 

All issues of The Transactor from Volume 4 Issue 01 forward are now available 
on microfiche. According lo Computrex, our fiche manufacturer the strips are 
the ''popular 98 page size", so they should be compatible with every fiche 
reader. Some issue are ONLY available on microfiche - Ihese are marked "MF 
only". The other issues are available in both paper and fiche. Don'l check both 
boxes (or these unless you want both Ihe paper version and the microfiche slice 
for the same issue. 



"pushed ahead". Time for the project has been "slotted" and we hope to have it 
near completion either before or slightly after release of the next issue. When 
finished it could host as many as 15 different modem programs and may even 
require two diskettes. We also plan an "all-in-one" manual to go with it so you'll 
never be without a telecommunications program for virtually any host com- 
puter and protocol. But it's not ready yet so don't send any orders. More nexl 
issue. 

E>enilse of Viewtron 

Yes, it really happened: newspaper chain Knight-Ridder pulled the plug on the 
Viewtfon online service that we've been raving about so much lately. And just 
when the Transactor section was domg so well (Heavy sigh). Perhaps some of 
the other services will take Viewtrons place in the future. 



To keep things simple, the price of Transactor Microfiche is the same as 
magazines, with one exception. A single back issue will he S4 50 and subscrip- 
tions are SI 5.00. The exception? A complete set of 18 (Volumes 4, 5, and 6) will 
cost just $39.95! 

This list also shows the "themes" of each issue. "Theme issues" didn't start 
until Volumes, Issue 01 



Vol 4, 
VoL 4, 
Vol, 4, 
Vol.5, 
Vol.5, 
Vol. 5, 
VoL 5, 
Vol, 5, 
Vol. 5, 
Vol.6, 
VoL 6, 
Vol. 6. 
VoL 6. 
Vol. 6, 
Vol. 6, 
Vol. 7, 
VoL 7, 



Issue 01 
Issue 02 
Issue 03 
Issue 01 
Issue 02 
issue 03 
Issue 04 
Issue 05 
Issue 06 
Issue 01 
Issue 02 
Issue 03 
Issue 04 
Issue 05 
Issue 06 
Issue 01 
Issue 02 



I Disk I ) ■ Vol. 4, Issue 04 - MF only 

IDiskl) HVol 4.lssue05-MFonly 

I Disk I ) ■ VoL 4, Issue 06 - MF only 

- Sound and Graphics 

- Transition lo Machine Language 

- Piracy and Protection - MF only 

- Business & Education - MF only 

- Hardware & Peripherals 
-Aids ^Utilities 

" More Aids & Utilities 

- Networking & Communications 
" The Languages 

- Implementing The Sciences 

- Hardware&SoftwarelnterfacJng 

- Real Life Applications 

- ROM / Kernel Routines 

- Games From The Inside Out 



I Disk I) 
I Disk I) 
I Disk 1) 
I Disk 2) 
I Disk 2) 
I Disk 2j 
I Disk 3) 
I Disk 4| 
I Disk 5) 
I Disk 6) 
I Disk 7j 
I Disk 8) 
I Disk 9| 
Disk 10) 
Disk III 
Disk 12) 
Disk 13) 



Notes: The Transactor Disk 'I contains all program from Volume 4, and Disk 
'2 contains all programs from Volume 5, Issues 1-3. Afterwards there is a 
separate disk for each issue. Disk 8 from The Languages Issue contains COMAL 
0.14, a soft-loaded, slightly scaled down version of Ihe COMAL 2.0 cartridge. 
And Volume 6, Issue 05 published the directories for Transactor Disks I lo 9. 

No Salea Tux on Books 

Residents of Ontario need not add the 7% sales tax for the Inner Space 
Anthology and Jim Butterfield's 1986 Diary as indicated on the subscription 
card. 

Sending Cheques For Transactor Products 

If you wish to send a cheque with your subscription /order form, or you wjsh to 
conceal your credit card number, you can use an envelope and tape it to the 
back of Ihe subscription card. The post office has threatened to charge us extra 
for sloppy business reply mail so please try to use an envelope that is smaller 
than the card. Can't find one? Just trim the end off the envelope and tape along 
that edge when fixing it to the card. 

The Transactor Communications Disk 

We're still working on the "Transactor Communications Disk '. Of course the 
Viewtron software is no longer being considered. And the fad that we're now 
working on a new home for our on-line services means that this project had to 



Quantum Link and Timeline 

We're currently investigating Quantum Link and Timeline (a Montreal based 
multi-user online service) as the new homes for The Transactor Online Data 
Service. At the moment, however, neither is readily available to all our 
subscribers simultaneously. Timeline access is through DataPac, a packet 
switching service that seems to be only in Canada. Quantum Link can be 
accessed via Unmet and Telenet which don't yet extend tieyond the U.S, 
TymNet has recently installed nodes in 5 or 6 major Canadian centers, but does 
not carry the Quantum Link service. However, remote areas would still need to 
call long distance. The ideal sotntion would be to have Quantum Link on 
DataPac which they are reportedly close to complehng. Unfortunately we can't 
offerany more definite plans, but can say that it isontopof the priority list for 
things to do between now and next issue. 

Using Transactor Programs in Proprietary Software 

Our policy concerning the use of our routines in your own software, commer- 
cial or otherwise, is this: you have our blessings. If you can find a use for 
something that we've published, well, that's what we're here for. We won't 
demand royalties or even a free copy, but we'd be happy if you gave the 
Transactor credit in some way, as well as the author of your assistance. 



Industry News 

1986 Midwest Commodore Conference /Expo 

The 1986 Midwest Commodore Conference/Expo is to be held on August 9Eh 
and 10th, 1986 at the Holiday Inn Convention Centre, 72nd and Grover in 
Omaha, Nebraska, There will be over 30 workshops and both local and 
national vendor support. Speakers include Jim Butlerlield from Toronto, 
Ontario, Dr. Richard Immers, the co-author of "Inside Commodore DOS" from 
Detroit, Michigan, Valerie Kramer, a computer language expert from Los 
Angelas, California, Dr. James Alley, Art Professor (Amiga) from the Savannah 
College Of Arts, Savanaugh, Georgia, and Pete Baczor, the Commodore Users 
Group Coordinator. It looks to be one of the biggest Commodore shows in the 
country. For more information, contact: 

The Greater Omaha Commodore Users Group 
P.O. Box 24 1 1 55 
Omaha, Nebraska 
Attention: Tim Trabold 



MSD Still Alive And Prospering! 

In Volume 7, Issue 01 s NEWS BRK column, we reported the demise of Micro 
System Development, belterknownasMSD. Well, a Mr Allen Dermody sent us 
a letter poinlmg at that Ihe company is still doing well, as he had his MSD drive 
recently serviced by them. It seems that ihey are no longer developing disk 
drives for Commodore machines, but still exist as a company, doing mainly 
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point of sale cash registers, and apparently doing quite weil. MSD may be 

reached at: 

MSD Systems, Inc, 

I003i Monroe Drive Suile 206 

Dallas. Texas 75229 

(2!'1) 357-8587 

The address for Ihe MSD Inlormaiion Exchange is; 

Paul Eckler 
2705 Hulman Street 
Terre Haute. IN 
47803 



Twtn ClHes 128; The Commodore 128 Journal 

As quoted Irom the April. 1986 edition; Volume I . Issue 4 



" 1571 Music Crilic; While doing some simple file transfers to disk while 
listening to ZZ-Top's Afterburner album, ! noticed my 1571 was having 
problems saving. The green light was furiously winking on and off in dazed 
distress, and the read/write head was buzzing loudly in a vain attempt to find 
the proper place on the disk to do its job/' 

If you had read through the balance of this article, you would discover that the 
Commodore 1 571 drive dislikes the music of ZZ Top (the kick-drums knock the 
drive out of alignment) but loves Stevie fVicks; that is, according to The 
Abominog's Ruminations column. Although a little bit on the weird side at 
times, reading through this journal is a delight to be enjoyed by all. 

What better way to tell of a journal's contents than to list it ■ The Table Of 

Contents: 

Rumors, Opinions, Mayhem 

Abominc^'s Ruminations 

Sid Vicious Bytes 

Print Using Explained 

Intro ToMusic7.0 

CP/M Update 

Primer Files Explained 

Commodore Experts Speak 

Sparrow's Slick Tips 

... plus reviews on Paperback Filer, Commodore 1350 Mouse, Commodore 
1670 Modem, Fleet System 3/128, Matrix, Leader Board and Project: Space 
Station 

As stated all along, a journal not to be without. S175 (US funds) per issue or 
$22.00 (or a year's subscription. Available from: 

Twin Cities 128 

1607 Hewitt Avenue, Suite 4 

PO Box 4526 

Saint Paui^MN 55104 

Creative Writer 

"Although the computer was quite elegantly constructed, it was not as sleek as 
Sharon's calf " The preceding sentence was not written on a computer: it was 
wrilten by a computer. CREATIVE WRITER is not a word-processor. If is a 
writer, a writer who never gets writer's block. And it is one of the mosl unusual 
and amusing and educational programs ever written for the C-64. 

The program was written by a Canadian poet and novelist for use in Teaching 
creative-writing in Ontario schools, where both students and teachers have 
invariably found it both fai^cinating and hilarious. While extremely easy to use. 
C.W. is quite capable of extremely complex linguistic investigation. This is 



because of special modules which generate individualized vocabulary and 
syntax files which can be utilized by the main program, Th flexibility of C,W. 
makes it possible to do everything from analysis and simulation of established 
authors to curse-generation tailored to abuse your lavourite' politicians and 
friends. 

The randomly generated sentences are infinitely variable in terms of vocabu- 
lary and sentence structure, and they are grammatically correct. The products 
of a 'creative writing session' can be saved to disk as a standard sequential file 
(for later editing with a word-processor) or streamed to a printer. While we can't 
promise you That C.W. will write the Great Canadian Novel for you. we can 
promise that it will be one of the most amusing and unusual pieces of software 
in your collection! 

Creative Writer has a retail price of S29.95. To order, phoneor send a cheque or 

money^order to: 

The aA.S.S. Company 

970Copeland 

North Bay, Ontario, Canada 

P1B-3E4 (705)474-9602 

Sector Surgeon For The C-64 

Sector Surgeon is the first advanced disk repair program for the C-64, SX'64 and 
C-128, 

Unlike its predecessors, Sector Surgeon is written totally in machine language. 
Sector Surgeon uses FDC disk routines instead of the less versatile IP routines 
toenhance its flexibility. This also allows writing and reading of protected disks 
from tracks 1 to 35. Also, Ihe block availability map sector need not be intact for 
Sector Surgeon to work. Instructions are available at the touch of a key. 

The sector information is displayed in a window in screen code and the byte 
under ihe cursor is displayed simultaneously in (1) screen code (2| decimal (3) 
hex (4) binary (5) basic. All header information and data block checksums can 
be displayed in decimal, hex and screen codes. Shows actual track number and 
displays the forward link. 

Sector Surgeon will read information under almost all errors and will write 
information underneath header errors. Error 23 will be corrected automatically 
upon writing to a disk, You can copy sectors even to another disk. 

Sector Surgeon has been tested and found to work with the 1541. VlC-1541. 
1540, 1541 Rash! and SX-Flashf For more information contact: 

Bak Room Boys Software 
2306 NMacArthur Blvd. 
Oklahoma City,OK 73127 
(405)946-2888 

Three MIDI Data Storage Programs For The Commodore 64 

The CZDumpstorisapatch librarian for the Casio CZ101,CZ1000,CZ3000 and 
CZ5000 synthesizers. Three banks of sixteen patchs can be in memory at one 
lime, and the program includes 128 professional patches. TheCZ Dumslor sells 
for S54.95 (US funds). 

The Data Dumpstor is a very powerful datastorage program that stores patches, 
sequences, drum patterns and other MIDI information from over 20 different 
instruments. Data is accepted from the DX-7. RX-1 1 , TX-7. DX-9, QX-7. and the 
new DX-lOO, and several more Yamaha mstruments. Data from instruments by 
Korg, Sequential, Oberheim and others can also be stored and retrieved. It 
holds 36k and MIDI info from several instruments can be stored or sent at the 
same time The Data DumpsTor sells for S59.95 (US funds). 

The TR-707 Dumpstor accepts drum patterns and songs from the Roland TR- 
707 and TR-727 drum machines. It eliminates the need for cassette data 
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storage, and also uses the ullra-fast disk MIDI lile loading routine used by Ihe 
CZ Dumpslor and the Dala Dumpslor. It sells for $39.95 (US lunds). For more 

informdtion, contact. 

Music Service Soli ware 
801 Wheeler Road 
Madison, W] 53704 

The Eleclronic Shoe Box Accounting Systems Far The C64 

Dating back lo its original release in ]9S3 (OT use with the Pet/CBM microcom- 
purers, the new Shoe Box [l Accounling and Shoe Box Payroll systems (or the 
Commodore 64 and C128 have arrived. Two years ol unrelenting work has 
gone into making the Shoe Box systems the right choice lor all your accountmg 
needs. While retaining complete compatibility with the previous Shoe Box dala 
structures, the speed of program execution has now been further increased by a 
factor of six times. Copy protection is employed with this package, but the " 
dongte" method of protection has been chosen to allow duplicates of program 
and dala files without problems. The manuals supplied are well written, well 
presented and very well bound. From all aspects, the new Shoe Box accounting 
systems have the markings of a truly good system, one that may be just right for 
your accounting needs. 

Take a look at the fine features to be enjoyed in the use of this system: 

• easy initial set-up (20 minutes). 

• calculates tax. CCA and prorated expenses automatically. 

• automatic posting to General Ledger, 

• automatic addressing of invoices and customer statements. 

• print and sort by 5 digit code, 

• prints mailing labels, 

• supports most Commodore and compatible disk drives and printers. 
•97 General Ledger accounts. 

• income statement and balance sheet. 

• Canadian half-year rule for CCA, 

• 200 ^Aged" customer sub-accounts. 

• 70 dala journals per disk wilh up to !3,000 journal entries. 

• 9 million dollar account limit. 

Plus much, much more. The Shoe Box Canadian Payroll package has a retail 
price of S79.95 (Canadian funds). The Shoe Box 11 Accounting system has a 
retail price ol $89 95 (Canadian funds). For more information, contact: 

John Dunlop and Associates Ltd. 
RR Number 5 

Orangeville, Ontario, Canada 
L9W-2Z2 (519)941-9572 

Freedom Assembler 1 28 For The Commodore 1 28 

The Freedom Assembler-128 is a symbolic assembler, written entirely in 
assembly language, by a professional computer programmer. Now, you too can 
write programs for the 6502/65 10/ 65C02/85O2 family of microcomputers. 
With this assembler, programming is faster and easier than ever. The Freedom 
Assembier-128 lakes full advantage of the C-I28's lighting speed and super 
memory capacity. No more having to link too long files, no more long waits for 
your disk assembler to load. The Freedom Assembler-128 is always ready 
when you need it. The cartridge format allows it to remain plugged into your 
computer until it is needed, with no interference with your other programs. The 
Freedom Assembler-128 works in both 40 and 80 column mode. 

The Freedom Assembier-128 is available for $49.95 (US funds). Postage is paid 
by Hughes As,sociates. Order from: 

Hughes Associates 
45341 Harmony Lane 
Belleville, Ml 48111 
(313)699-1931 



Rebel Assembler/ Editor For The Commodore 64 and l28 

A new dawn is on the horizon for Commodore programmers who program in 
the native machine language of either the Commodore 64 or Commodore 128 
PC 

A sophisticated 65XX/85XX assembler that assembles source code at unbeliev- 
ably lighting speed. Rebel is integrated in both the 64 and 128 versions with an 
extremely versatile and helplul screen editor. The 1 28 editor m the 80 column 
mode even provides an on-screen help menu and true split-screen editing. 
Rebel lakes no functions away from the user, giving total access to the 
computer's powerful Basic language at all times, while providing extra facilities 
such as a lile lister, list freezer, search and replace functions and much more 
The 64 version, because ot the limitations of Basic 2.0, adds other features such 
as fast renumber^ page fhpping, hexadecimal ■ decimal - ASCII conversions, list 
scrolling and more. 

A nice thing about Rebel is that it is available now, at a suggested retail price of 
only S29.95, For more information, please contact; 

Nu-Age Software 
2311 28lh Street North 
St. Petersburg, FL 33713 
(813)323-8389 

liz Deat'a Bask Program Converter 

Lisl/conv by Elizabeth Deal is a program which converts programs from one 
Commodore machine into a format such that they can be listed and edited on 
another machine. If you don't know which machine a particular program 
comes from, List/conv will do its best to figure it out for you. The newly created 
program may not directly run on the target machine, but at least the keyword 
tokens won't be messed up; lhe> will tie converted to equivalent tokens in the 
new machme, or actual ASCII strings where no such keywords exist. 

Included on the disk with Liz's List/conv at no charge is Jim Butterfield's 
public-domain "lister' program, which runs a bit slower than the machine 
language List/conv, but tends to handle control characters better. The disk with 
both programs is only $10.00 U.S., available from; 

Liz Deal 

337 West 1st Ave 

Malvern, PA, 19355 

10 and 20 Megabyte Hard Disk Drives For The C64 

Fiscal Information Services have broken the speed barrier with the first really 
fast hard disk system for the Commodore 64. How fast is really fast. It's fast 
enoughtoLoadafullscreenofhtgh-resoiution color graphics (about II kbytes) 

in less than one second' In fact, ii is up to 43 times faster than Commodore's 
standard 1541 floppy disk drive. 

FIS'^ Lt. Kernal disk drive carries an on-board DOS. It's a substantial upgrade to 
C64's Basic since it adds run-time functions and several CP/M like command 
line function, Lt. Kernai interfaces via the expansion/cartridge port and 
transparently implements all Commodore 1 54 1 DOS (unctions. 

The capacity of 10 or 20 MB is standard; larger capacities and streaming tape 
backup are available as extra-cost options. The price of the 10 MB Lt. Kernal is 
$1 ,595.00 (US). For more information; 

Fiscal Information Inc. 
143 Executive Circle 
Davtona Beach, FL 32014 
(904) 253-6222 
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Quick Brown Box: 

An 8k Read/Wrile Carlridge For The Commodore 64 

The Qjick Brown Box is a battery- backed- up RAM cartridge tot the C-64 (or C- 
128 Jn64 mode) that allows the Basic or machine language programmer lo load 

or write programs and save them lor immediate availability al power up. For 
the F^xpansion Port, up to 8k of frequently used utilities, wedges, or ^ames may 
be stored, usin^ no hardware besides the computer itself. Includes Write 
Protect switch and Reset button, and is shipped with Auto-Starl, Basic utilities 
and ML Monitor. USA S39.00 plus S3.00 Handling and Mailing, Canadian 
S50.00 plus SlOO H&M Cheques accepted. 

Brown Boxes, Inc. 
26 Concord Road 
Bedford. MA 01730 
(617)275-0090 

1540/1541 Drive Alignment 5y«tem By SchuUce Enterprises 

As good as they are. In normal usage, the 1 540/1 541 Disk Drives are subject to 
knockmg themselves out ot alignment It happens enough to warrant the 
attention of all users Schul^ce uses drive electronics coupled with a pair of 
innovative indicators to correct the problem. We economically show you how 
to get your problem drive reading fhose early- recorded and commercial 
diskettes. As the name implies, if will gel you back On-Track. The On-Track 
System is the product of nearly two years research, development and improve- 
ment. It's multi'lunctions and advantages will prove its immeasurable value 
with use. On-Track has a suggested retail price of $15.98 (US funds) plus $2 00 
PSiH. For more information, contacl. 

Schu I -ace Enterprises 

P.O. Box 771 

Cascade. Maryland 21719 

Astrology Program For Commodore 64 

This program will run on a Commodore 64 system with a disk drive and printer 
(optional). Choose between TROPICAL or SIDEREAL zodiac. It is based on a 
unique ancient eastern system oi astrology using divisions of zodiac info 12 
signs, 27 asterisms, 108 navamsa quarters and 249 sub-aster is mai divisions. 
Uses a unique lunar progression (vimsotlary dasa). It also has a time-tested 
horary chart option for drawing charts for answering questions or when the 
birth lime is unknown. Lonf^ifudes o( 9 planets and 2 lonar nodes, iheir 
positions, strengths, aspects and planetary periods, etc., are displayed on- 
screen. The screen can be dumped to a connected printer (device '-!). In 
addition, a separate formatted hardcopy option supports 1526/MPS-802 
and Epson Standard Code compatible printers. A quick horoscope snapshot 
option and directory display are supported. Docu men tuition for operating the 
program and a treatise outlining the predictive aspects (with important refer- 
ence material and example horoscope analy.sis) are included for those wishing 
to learn the system. Backup disk included. Available for $50,00 (Canadian 

funds] from. 

ROHINl 

PC. Box 9 

St. Norbert Post Office 

Wmnipeg, Manitoba, Canada 

r:w-il5 

Multiplex Eight RS232 Ports Onto A Single X.25 Line 

New from Black Box Corporation. X.25 PAD/ Concentrator lowers duster 
access costs. The use oJ X.25 packet data neIworks(such as DataPac) has grown 
rapidly as users recognise PDN's cost-saving advantage over teased lines. Now, 
get even greater use out of a single X.25 access lint? with Black Box's X 25 PAD/ 
Concentrator. This device has an X.25 'in" connector and 8 bi-dirt^ctional 
RS232 female ports. It permits up to eight terminals or computer ports to 
multiplex onto a single X.25 line, making it a cost effective way to connect a 



cluster of remote asynchronous terminals to a non X.25 host, or provide 
multiple remote terminal access to an X.25 host computer. 

Easy to install, maintain and iroubleshoot, X.25 PAD has a powerful, user 
friendly command facility which provides acomprehcnsive set of configuration 
and control functions, such as long call forms, abbreviated caH and autocall, 
class selection, channel calling restrictions and incoming call validation. It can 
support direct, dedicated and dial up terminal connections at speeds up to 9600 
bps. The unit is fully compatible with CCITT, X.3, X.28, X 29, X. 1 2 1 and X.25 
access lines. 

For a free catalog thai describes this and 500 other data communications and 
computer devices available from Black Box, write; 

X.25 PAD/Concentrator 

Black Box Corp. 

P.O. Box 12800 

Pittsburgh, PA 

15241 (412)746-5500 

/SPEEDPAK/ Speedscript Enhancer 

Upstart Publishing proudly presents /SPEEDPAK/, theC64 Speedscript 3.0-3.2 

enhancer /SPEBDPAK/ adds .six new commands, three printer codes, and 
eight user-definableSl-characlermacro phrase keys to Speedscript. Among the 

new features are: 

• Alternate screens: Edit, cut, and copy between documents instantly 

• Help screen installer use one built-in help screen at a time. Four free samples 
are included, or you can create your own. 

• SCREEN font installer: tour special character sets are included for onscreen 
viewing (these do not print to the page), 

• File encryption: For security. ,scramb!e your text files before saving and 
recover them after loading {using your own 32-character code). 

■ Code conversion Convert screen codes to Commodore ASCII and vice versa 

• Defaults Set disk or tape as default storage device, and set a standard printing 
device and secondary address. 

• Dvorak keyboard option: Use the world's fastest keyboard arrangement - 
including a special help screen for beginners. 

Three additional printer codes work with the alternate screen feature to provide 
a RAM-based for letter mail merge, allowingyou to merge a record into the form 
letter, or skip forward or backward through records - all with no disk access 
during printing. 

Best oi all, you can save Speedscript, /SPEEDPAK/, a character set, a help 
screen, and preset defaults (including background and border colours) as one 
easy to load bundle! And the /SPEEDPAK/ disk comes with prinled instruc- 
tions, three disk-bas-^d tutorials, and three sample files thai show you how to 
use /SPEEDPAK/'s handy functions, f^nce is $15 00 US, $12.00 for quantities 
of ten or more. Order Irom: 

Upstart Publishing Depl. TN 
P,0. Box 22022 
Greensboro, NC 27420 

Speed-Plus Speedscript Enhancer 

The Speed-Plus Speedscript enhancer from Lidon Enterprises adds the follow- 
ing featu^e^ Uj Speedscript 3.0-3.2: Justification, Tabs, 2 column/2 side print- 
ing, word wrap to^le, preview of output to screen, printing of any section of a 
document, user-dehned printer commands, and change of printer secondar>' 
address "on the fly'^ Price is $24.95 US including ?^H, from: 

Lidon Enterprises Dept. UP 

P.O Box 773 

Elm Grove, Wl 53122 
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JOIN TPUG 

The largest Commodore Users Group 

Benefit from: 

Access to library of public domain software 
for C-64, VIC 20 and PET/CBM 

Magazine (10 per year) with advice from 

Jim Butterfield 

Brad Bjomdahl 

Liz Deal 



TPUG yearly memberships: 

Regular member(aTiends meetings) 
Student member {full'tlme, attends meetings) 
Associate (Canada) 

Associate (U.S.A.) 

Associate (Overseas — sea maif) 
Associate (Overseas — air mail) 



-S35.00 Cdn. 

— S25.00 Cdn. 
-$25.00 Cdn. 

— 125.00 U.S. 

— $30.00 Cdn. 
-£35.00 U.S- 
— S45.00U.S. 



FOR FURTHER INFORMATION: 

Send $1.00 for an information catalogue 
(tell us which machine you use!) 

To: TPUG INC. 
DEPT. A, 

101 DUNCAN MILL RD.. SUITE G7 
DON MILLS, ONTARIO 
CANADA M3B1Z3 



COMAL INFO 

If you have COMAL— 

we have information. 



BOOKS: 

• COMAL From A To 1. S6.95 

• COMAL workbook, S6.95 

• Commodore 64 Graphics with COMAL, S14.95 

• COMAL Handbook, 518.95 

• Beginning COMAL, S22.95 

• Structured Programming With COMAL, 526.95 

• Foundactons With COMAL, S19.95 

• Cartridge Graphics and Sound, S9.95 

• Captain COMAL Gets Organized, $19.95 

• Graphics Primer, S19.95 

• COMAL 2.0 Packages, S19.95 

• Library of Functions and Procedures, 519.95 

OTHER: 

• COMAL TODAY subscription, 6 issues, $14.95 

• COMAL Old, Cheatsheet Keyboard Overlay S3.95 

• COMAL starter Kit (3 disks, i book), $29.95 

• 19 Different comal Disks only 59^.05 

• Deluxe comal Cartridge Package, $12S.95 
(includes 2 books, 2 disks, and cartridge) 

ORDER NOW: 

Call TOLL-FREE: i-800'356'S324 exr 1307 VISA or MasterCard 
ORDERS ONLY Questions and information must call our 
info Lrne: 606-222-4*132. All orders prepaid onJv— no C.O.d. 
Add S2 per book shipping, send a SASE for free info 
Package or send check or monev order in US Dollars to. 

COMAL USERS GROUP, U.S.A., LIMITED 

55D1 Croveland Ten, Madison, Wi 53716 

TRADFMAPKS Commodore 6a of Commooore Electronics LW 
Captain COMAL of COMAL Users croup. USA, Ltd 







From The Guru Himself! 

The 1986 Commodore Reference Diary 

A 65 page reference section that includes: 

• All hardware specifications including 
lheCl28andPClO/20 

• Useful memory locations 

• Useful programs 

• SuperCharts 

• BASIC and machine language hints 

• Hexadecimal conversion 

• Sound, video 

• and more 

The full calendar and dale book includes: 

• National holidays in ten countries 

• Personal notes 

• 1987 forward planner 

• Name, address, telephone section 

Just $5.95 

(pJus 50C postage and handling) 

Order Your Copy Today! 



Canada 

The Transactor 

500 Steeles Avenue 

Milton, Ontario 

L9T 3P7 



USA 

The Transactor 

277 Linwood Avenue 

Buffalo, New York 

14209 



_ ^ Dealer Orders: .,„. 

Canada USA 

Norland Agencies MicroPace Distributing 

251 Nipissing Road 1510 North Nei/ Street 

Milton, Ontario Champaign, Illinois 

L9T4T7 61820 

(41 6) 876 - 4774 1 800 362-9653 
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But thanks to the effort 
of this Hacker Gnome,_ 
vBu can cut your « 
programming time in^a! 

and triple your "~ 
ductivity! ' 




THE PROGRAMMING TO 




GNOME KIT 

Hacker Gnome's tool kit is a collection of programming, designing 
and debugging aids for writing both BASIC and machine code 
programs. By simply loading this transparent kit at the start of your 
work session, you will havea full range ot powerful commands-such 
as find, dump, merge, renumber, move and trace-at your gnometips. 
And for you more sophisticated gnomes, you can easily write 
machine code programs with the full assembler/disassembler and 
editor - Even extend DOS, create REM routines and restore corrupted 
disks. 

No Copy Protection! 
For both C-64 and C-128 
GNOME KIT is just $39.95 U.S. 

Don't forget GNOME SPEED, the BASIC 7.0 compiler. Transform 
virtually any BASIC 7.0 program into super fast, super compact 
machine code. Only S59.95. 



U.S. Mail Orders: 
SM Software, Inc. 
P.O. Box 129 
Kuizlomn, PA 19530 
(215) 683-5699 



Canadian Malt Orders: 
The Transactor 
(416). 678-8438 

See Order Card 



Dealer Inquiries: 

Micro-Pace. Inc. 

(217) 356-1884 
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SINGLE/DUAL NORMAL COPIER 



Copies a disk with no errors in 32.68 seconds, 
dual version has graphics & music. 

StNGLE/DUAL NIBBLE COPIER 

Nibble Copies a disk in 34,92 seconds. Dual 
version has graphics & music. 

SiNGLE/DUAL FILE COPIER 

7 limes normal DOS speed Includes mulli-copy, 
multi-scratch, view/edit BAM, & NEW SUPER 
DOS MODE In Super DOS Mode, it transfers 
7-15 limes normal speed, copies 150 blocks in 23 
seconds- 

TRACK & SECTOR EDITOR 

Full editing of tfts in hex, dec, ascii, bin. Includes 
moniror^disassembJer with printout commands. 



GCfl EDITOR 

Yes disk fans, a full blown sector by sector or 
track by track GCR Editor Includes TRUE Bit 
Density /Track Scan. 

3 SUPER DOS FAST LOADERS 

Over 15 limes normal DOS speed. Super DOS 
Files are still Commodore DOS compatible. 
Imagine loading 150 blocks in 10 seconds, 

SUPER NIBBLER/ 
SUPER DISK SURGEON 

Quite frankly, these will provide you the user with 
the backup you need! Even copies itself. 
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$29.95 U.S. 

PLUS $3.00 SHIPPING/HANDLING CHARGE - $5-00 C-O.D. CHARGE 

1 
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SOFTWARE 
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SUPER KIT/1541 is for archival 
use oniy! We do not condone 
nor encourage piracy of any kind. 
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401 LAKE AIR DR„ SUITE D • WACO, TEXAS 76710 
ORDERS (817) 757-4031 • TECH (817) 751-0200 

MASTERCARD & VISA ACCEPTED 
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See center page for 
mail order card. 
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Type in a lot of TVansactor programs? 

Does the above time and appearance of the sky look familiar? 

With The TVansactor Disk, any program is just a LOAD away! 



Only $7.95 Per Issue 
6 Disk Subscription (one year) 

Just $45.00 
(see order form at center fold) 



^ 



